Hola a todos. He conseguido la solución.
Sé que para Uds. será algo sencillo. Pero para mí que estoy en los comienzos es una gran alegría.
En tiempo de diseño puse align:=alClient al TPageControl para que no quede desproporcionado cuando se maximiza el Form.
Luego con este código creo un panel, un Memo y el correspondiente TabSheet. (ExtCtrls en Uses para el Panel)
Código:
procedure TForm1.Button1Click(Sender: TObject);
var m:integer;
begin
with TTabSheet.Create(Self) do
begin
PageControl := PageControl1;
Name:='Tab'+inttostr(PageIndex);
Caption := name;
m:=PageIndex;
align:=alClient;
end;
with TPanel.Create(self) do
begin
parent:= pagecontrol1.Pages[m];
name:='Panel'+inttostr(m);
caption:=name;
align:=alClient;
end;
with TMemo.Create(self) do
begin
parent:= pagecontrol1.Pages[m];
name:='Memo'+inttostr(m);
Align := alClient;
end;
end;
end.
Muchas gracias por todo lo que me ayudaron
Un saludo y hasta pronto