[Amon]

Если не трудно подскажите пожалуйста как сделать следующее. Вот кусок кода, мне нужно закоментированные строки как-то прописать, но я не могу перевести из одного формата в другой...

procedure TForm1.FormCreate(Sender: TObject);
var
T: TTabSheet;
P: TPageControl;

begin
Info.Open;
P := TPageControl.Create(application);
with P do begin
Parent := Form1;
Name:='PageControl1';
MultiLine:=True;
align:=alClient;
OnChange:=PageControl1Change;
end;
While not Info.Eof do begin
T := TTabSheet.Create(P);
with T do begin
Visible := True;
Caption := '№ '+Info.FieldByName('NLine').AsString;
PageControl := P;
end;

with TTable.Create(Self) do begin
Name:='Table'+Info.FieldByName('Line').AsString;
DatabaseName:='\\server\Common\COMNET\asorm';
TableName:='Line'+Info.FieldByName('Line').AsStrin g+'.dbf';
Parent :=Self;
end;

with TDataSource.Create(Self) do begin
Name:='DataSource'+Info.FieldByName('Line').AsStri ng;
//DataSet:='Table'+Info.FieldByName('Line').AsString ;
Parent :=Self;
end;

with TDBGrid.Create(Self) do begin
Name:='DBGrid'+Info.FieldByName('Line').AsString;
//DataSource:='DataSource'+Info.FieldByName('Line'). AsString;
align:=alClient;
Parent :=T;
end;
Info.Next;
end;
P.ActivePage := P.Pages[1];
P.ActivePage := P.Pages[0];
end;