Merged revisions 11125 via svnmerge from

svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
  r11125 | michael | 2008-05-29 15:31:32 +0200 (Thu, 29 May 2008) | 1 line
  
  * GetRandomBytes calls randomize only once, now thread safe too
........

git-svn-id: branches/fixes_2_2@11126 -

rtl/objpas/sysutils/sysutils.inc

@@ -580,8 +580,8 @@ begin
   P:=@Buf;
   If Not GUIDCalledRandomize then
     begin
-    GUIDCalledRandomize:=True;
     Randomize;
+    GUIDCalledRandomize:=True;
     end;
   For I:=0 to NBytes-1 do
     P[i]:=Random(256);