كيف أنشئ مربع نص أو زر اختيار أثناء عمل البرنامج

public   Card : TEdit;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  with Card := TEdit.Create(Self) do 
  begin
    Left := 120;
    Top := 120;
    Width := 71;
    Height := 96;
    Parent := frmMain;
    Visible := True;
  end;
end;

لك كل تحياتي العطرة أخي Maverick.....

منتظرين افتتاح موقعك .....

.............

نعقيب بسيط أرجو من خلفه الفائدة فقط , وهو أنني توصلت من خلال جوابك الشافي إلى حل أبسط من خلال مشكلة صغيرة واجهتني مع الكود الذي طرحتَه ...

................

الكود المعدّل هو :

Var
x:TEdit;
Begin
x:=TEdit.Create(Self);
x.Parent:=Form1;
.....
......
End;

تحياتي ...

شكرا لك على التصحيح و الله يوفقك