مشكلة في إنشاء مكون أثناء التنفيذ !

[me_delphi]

نسيت Parent وهو الدي سيحتوي أي سيستقبل المكون

PHP كود :

procedure TForm1.FormCreate(Sender: TObject);
var
Edt : TEdit ;
begin
 Edt := TEdit.Create(Self);
 With Edt do
 begin
 Parent:=Form1;
 width := 70 ;
 Top := 70    ;
 left := 250 ;
 Visible := True ;
 Enabled := True ;
 Text := 'hah';
 end;
end; 


ولا تنسى اظافة الوحدة StdCtrls