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