function LangDriver(table: TTable): string; var prop: PCURProps; begin GetMem(prop, Sizeof(CURProps)); try Check(DbiGetCursorProps(table.Handle, prop^)); result:=prop^.szLangDriver; finally FreeMem(prop); end; end;