function OpenDatabase(AParam....): THandle; stdcall; procedure CloseDatabase(ADatabase: THandle); stdcall;