var CurTable:integer; {номер текущей откр. таблицы}
{$R *.DFM}

procedure OpenTables;
var i:integer;
begin
with Glav_Form do begin
with IBQuery1 do begin
Active:=False;
SQL.Clear;
SQL.Add('select * from '+tables[CurTable].name);
// SQL.Add('order by '+tables[CurTable].sort);
Active:=True;
end;
i:=1;
ComboBox1.Items.Clear;
ComboBox2.Items.Clear;
repeat
DBGrid1.Columns[i-1].Title.Caption:=tables[CurTable].pfields;
ComboBox1.Items.Add(tables[CurTable].pfields);
ComboBox2.Items.Add(tables[CurTable].pfields);
i:=i+1;
until (i>M) or (tables[CurTable].pfields='');
это зачем, если ниже тоже самое?
// EtvDbGrid1.Columns.Add.Field;
// EtvDbGrid1.Columns.Add.Title.Caption:='asas';
IBQuery1.FetchAll;
Label1.Caption:= ' âñåãî çàïèñåé '+ inttostr(ibquery1.RecordCount);
Combobox1.Items.Clear;
Combobox2.Items.Clear;
i:=1;
repeat
ComboBox1.Items.Add(tables[CurTable].pfields);
i:=i+1;
until (i>M) or (tables[CurTable].pfields='');
ComboBox2.Items:=ComboBox1.Items;
end;
end;

Смотря зачем тебе порядковый номер? Просто для отображения? Или от должен быть в таблице?

А что TDataSet.TFields[].FieldKind := fkCalculated не катит???

Почему?? Тебе же только отобразить надо...

var
f : TField;

f := TField.Create(IBDataSet1);
f.FieldKind := fkCalculated;
f.OnGetText := OnMyFieldGetText({Sender: TField; var Text: String; DisplayText: Boolean});
IBDataSet1.Fields.Add(f);

procedure TForm1.OnMyFieldGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
Text := IntToStr(IBDataSet1.RecNo);
end;

А в общих чертах: справку не для увеличения объема продукта делают ...