* fixed failures of previous merge

git-svn-id: branches/fixes_2_0@1916 -

rtl/win32/sysos.inc

@@ -250,9 +250,9 @@ var
    function GetCurrentDirectory(bufsize : longint;name : pchar) : longbool;
      stdcall;external 'kernel32' name 'GetCurrentDirectoryA';
 
-   function LoadLibrary(lpLibFileName:pchar):THandle; stdcall; external KernelDLL name 'LoadLibraryA';
-   function FreeLibrary(hLibModule:THandle):ByteBool; stdcall; external KernelDLL name 'FreeLibrary';
-   function GetProcAddress(hModule:THandle; lpProcName:pchar):pointer; stdcall; external KernelDLL name 'GetProcAddress';
+   function LoadLibrary(lpLibFileName:pchar):THandle; stdcall; external 'kernel32' name 'LoadLibraryA';
+   function FreeLibrary(hLibModule:THandle):ByteBool; stdcall; external 'kernel32' name 'FreeLibrary';
+   function GetProcAddress(hModule:THandle; lpProcName:pchar):pointer; stdcall; external 'kernel32' name 'GetProcAddress';
 
    var
      SetFilePointerEx : function(hFile : THandle;
@@ -264,7 +264,7 @@ var
       hinstLib : THandle;
     begin
       SetFilePointerEx:=nil;
-      hinstLib:=LoadLibrary(KernelDLL);
+      hinstLib:=LoadLibrary('kernel32');
       if hinstLib<>0 then
         begin
           pointer(SetFilePointerEx):=GetProcAddress(hinstLib,'SetFilePointerEx');