// возвращалась набор полей пятой строки Table1.GetRows(5).FieldByName('F1').AsString
// здесь фиксируем индекс строки

function TFxIniTable.GetRows(Index: Integer): TFields;
begin
  if (Index>0)and(Index<=GetRecordCount)then FRowRecord:=Index else begin
    FRowRecord:=0;
    DatabaseErrorFmt(SRecordNumFound,[Index]);
  end;
  Result:=Fields;
end;

//Здесь фиксируем буфер по заданной строке используя функцию на манер события
function TFxIniTable.GetActiveRecBuf(var RecBuf: PChar): Boolean;
begin
  Result:=inherited GetActiveRecBuf(RecBuf);
  if Result and (FRowRecord>0) then begin
    FRowBuffer:=AllocRecordBuffer;
    Move(Records[FRowRecord-1].Data^,FRowBuffer^,GetRecordSize); -- перенос во временной буфер целой записи
    FRowRecord:=0;
    RecBuf:=FRowBuffer;
  end;
end;

//Здесь присваиваем фиксированный буфер в набор полей 
procedure TFxIniTable.SetFieldData(Field: TField; Buffer: Pointer);
var I: Integer;
begin
  I:=FRowRecord;
  inherited SetFieldData(Field,Buffer);
  if I>0 then begin
    SetMemoryRecordData(FRowBuffer,I-1);
    if I=RecNo then GetCurrentRecord(ActiveBuffer);
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var I: Integer;
begin
  for I:=0 to FDMemTable1.GetRow.RowList.Count-1 do ShowMessage(String(FDMemTable1.GetRow.RowList.ItemsI[I].ValueS['F1'])+' '+IntToStr(FDMemTable1.GetRow.RowList.ItemsI[I].ValueS['F2']));
end;