function GetTableVersion(Table: TTable): Longint; var hCursor: hDBICur; DT: TBLFullDesc; begin Check(DbiOpenTableList(Table.DBHandle, True, False, PChar(Table.TableName), hCursor)); Check(DbiGetNextRecord(hCursor, dbiNOLOCK, @DT, nil)); Result := DT.tblExt.iRestrVersion; Check(DbiCloseCursor(hCursor)); end;