* Changed to a more sensible and backwards comparible loading order

git-svn-id: trunk@20059 -

packages/ibase/src/ibase60.inc

@@ -2647,9 +2647,9 @@ begin
     end
   else
     begin
-    If (TryInitialiseIBase60(fbembedlib)=0) and 
-       (TryInitialiseIBase60(fbclib)=0) and
-       (TryInitialiseIBase60(gdslib)=0) then
+    If (TryInitialiseIBase60(fbclib)=0) and
+       (TryInitialiseIBase60(gdslib)=0) and
+       (TryInitialiseIBase60(fbembedlib)=0) then
         Raise EInOutError.CreateFmt(SErrDefaultsFailed,[fbembedlib,gdslib,fbclib]);
     end;    
   Result := RefCount;