anchor.diff:  {$IFDEF DYNLOADINGODBC}
   Procedure InitialiseODBC(OverrideName : string ='');
   Procedure ReleaseODBC;
  +function isODBCLoaded : boolean;
   
   var ODBCLibraryHandle : TLibHandle;
   {$ENDIF}
  
positive.code: 
  var RefCount : integer;
  
  Procedure InitialiseODBC(OverrideName : string ='');
  
  var libname : string;
  
  begin
    inc(RefCount);
  
negative.code:     if ODBCLibraryHandle = nilhandle then
        begin
        RefCount := 0;
  
        error:= GetLoadErrorStr;
        Raise EInOutError.Create('Can not load ODBC client. Is it installed? ('+odbclib+': '+error+')');
        end;
  
  {$ifdef fpc}
  