* createguid fixed

git-svn-id: trunk@34 -

rtl/win32/sysutils.pp

@@ -62,16 +62,17 @@ implementation
   uses
     sysconst;
 
-{ Include platform independent implementation part }
-{$i sysutils.inc}
-
+{$define HASCREATEGUID}
 function CoCreateGuid(out guid: TGUID): HResult; stdcall; external 'ole32.dll' name 'CoCreateGuid';
 
 function CreateGUID(out Guid: TGUID): HResult;
 begin
   Result := CoCreateGuid(Guid);
 end;
-  
+
+{ Include platform independent implementation part }
+{$i sysutils.inc}
+
 {****************************************************************************
                               File Functions
 ****************************************************************************}