diff --git a/source/dbconnection.pas b/source/dbconnection.pas
index 3f5270cd..9f508aa5 100644
--- a/source/dbconnection.pas
+++ b/source/dbconnection.pas
@@ -2090,12 +2090,15 @@ end;
 
 
 procedure TPgConnection.DoBeforeConnect;
+var
+  LibWithPath: String;
 begin
   // Init lib before actually connecting.
   // Each connection has its own library handle
   if LibPqHandle = 0 then begin
-    Log(lcDebug, f_('Loading library file %s ...', [LibPqPath]));
-    LibPqHandle := LoadLibrary(PWideChar(LibPqPath));
+    LibWithPath := ExtractFileDir(Application.ExeName) + '\' + LibPqPath;
+    Log(lcDebug, f_('Loading library file %s ...', [LibWithPath]));
+    LibPqHandle := LoadLibrary(PWideChar(LibWithPath));
     if LibPqHandle = 0 then
       raise EDatabaseError.CreateFmt(_('Cannot find a usable %s. Please launch %s from the directory where you have installed it.'), [LibPqPath, ExtractFileName(ParamStr(0))])
     else begin