+ implemented randomize for win16

git-svn-id: trunk@31873 -

rtl/win16/system.pp

@@ -252,14 +252,8 @@ begin
 end;
 
 procedure randomize;
-{var
-  hl   : longint;
-  regs : Registers;}
 begin
-{  regs.AH:=$2C;
-  MsDos(regs);
-  hl:=regs.DX;
-  randseed:=hl*$10000+ regs.CX;}
+  randseed:=GetTickCount;
 end;
 
 {****************************************************************************