> I think to test gds32.dll before application.run in .dpr file.
>
> Have any elegant solution?

procedure TForm1.ButtonDBTestClick(Sender: TObject);
var
dhand:THandle;
procPointer:Pointer;
messString:string;
begin
procPointer := nil;
dhand := LoadLibrary('gds32.dll');
if dhand > 0 then
procPointer := GetProcAddress(dhand,'isc_sql_interprete');
if procPointer <> nil then
messString := 'all went fine, Interbase Client found. Handle:' +
IntToStr(dhand)
else
messString := 'ZONK, Interbase Client NOT found.';
ShowMessage(messString);
if dhand > 0 then
FreeLibrary(dhand);
end;


Florian