Crear elementos en tiempo de ejecucion

[frudolph]

Probá con el siguiente código:

procedure TForm1.Button1Click(Sender: TObject);
var

TS: TTabSheet;
TV: TListView;

begin

TS := TTabSheet.Create(Self);
TS.Caption := 'TabSheet' + IntToStr(PageControl1.PageCount + 1);
TS.PageControl := PageControl1;
TV := TListView.Create(Self);
TV.Parent := TS;
TV.Align := alClient;

end;