Hola,
Con el siguiente código creamos un "PageControl" y varios "TTabSheet":
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
ts: TTabSheet;
pc: TPageControl;
begin
pc := TPageControl.Create(Self);
pc.Parent := Self;
pc.SetBounds(10, 10, 400, 300);
for i := 1 to 5 do
begin
ts := TTabSheet.Create(Self);
ts.PageControl := pc;
ts.Caption := 'Pestaña '+IntToStr(i);
end;
end;