[AlexSku]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var e: TEdit;
begin
  e:= TEdit.Create(Self);
  with e do
  begin
    Left:= 10;
    Top:= 20;
    Parent:= PageControl1.Pages[0];
  end;
end;