[Decoding]

Чтото типа этого

procedure TForm1.FormCreate(Sender: TObject);
var
T: TTabSheet;
P: TPageControl;
table: TTable;
ds: TDataSource;
grid: TDBGrid;
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;
table := TTable.Create(Self);
Name:='Table'+Info.FieldByName('Line').AsString;
table.DatabaseName:='\\server\Common\COMNET\asorm' ;
table.TableName:='Line'+Info.FieldByName('Line').A sString+'.dbf';
ds := TDataSource.Create(Self);
ds.Name:='DataSource'+Info.FieldByName('Line').AsS tring;
ds.DataSet:=table;
grid := TDBGrid.Create(Self);
grid.Name:='DBGrid'+Info.FieldByName('Line').AsStr ing;
grid.DataSource:=ds;
grid.align:=alClient;
grid.Parent :=T;
end;
Info.Next;
end;
P.ActivePage := P.Pages[1];
P.ActivePage := P.Pages[0];
end;