diff --git a/SRC/ExpertGM.dpr b/SRC/ExpertGM.dpr
index fc4a60c..e629566 100644
--- a/SRC/ExpertGM.dpr
+++ b/SRC/ExpertGM.dpr
@@ -637,6 +637,7 @@ var
   Req: string;
   TimeStr: string;
 begin
+  Randomize;
   Randomize;
   TimeStr := DateTimeToStr(Now);
   while Pos(':', TimeStr) > 0 do