i have just converted TTable to TIBOTable, i have 1
TIB_Query,TIB_Connection and TIBOTable, this code works on TTable, i
just edit the *.dfm to convert it to TIBOTable.

for i := FirstKey to LastKey do begin
tbl.SetKey;
tbl.FieldByName('Switch').AsInteger := i;
tbl.FieldByName('MachID').AsInteger := hMachID;
if tbl.GotoKey then begin
Keys[i].Name := tbl.FieldByName('Name').AsString;
Keys[i].Status :=
TPresetStatus(tblPSet.FieldByName('Status').AsInteger);
Keys[i].Data := tbl.FieldByName('Number').AsInteger;

if Keys[i].Status = CLERK then
Dec(Keys[i].Data, 210000);
end;

DrawKeyFace(i);
DrawKey(i, D_NORMAL);
end;

the error is CANNOT ACCESS INDEX FIELD "TABLENAME.INDEXFIELD"...
what should i do... are there any workaround doing this???

thanks for your help in advance...