procedure TForm1.Button1Click(Sender: TObject);var Edit1: TEdit;begin Edit1 := TEdit.Create(Panel1); Edit1.Parent := Panel1;end;