Delphi shares three random strings

usesMath;functiongenid:string;varb, X:byte;beginResult:='{';  Randomize;  forb:=1  to 8  Do  begin    ifRandom ( -) > -  ThenResult: = result + Chr (Randomrange ( -, $))    ElseResult: = result + Chr (Randomrange ( $, -)); End; Result:= Result +'-';  forx:=1  to 3  Do  begin     forb:=1  to 4  Do    begin      ifRandom ( -) < -  ThenResult: = result + Chr (Randomrange ( -, $))      ElseResult: = result + Chr (Randomrange ( $, -)); End; Result:= Result +'-'; End;  forb:=1  to  A  Do  begin    ifRandom ( -) < -  ThenResult: = result + Chr (Randomrange ( -, $))    ElseResult: = result + Chr (Randomrange ( $, -)); End; Result:= Result +'}';End;functionGenkey:string;ConstChars='abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz';varS:string; I, N:integer;beginRandomize; S:="';  forI: =1  to  -  Do beginN:= Random (Length (Chars)) +1; S:= S +Chars[n]; End; Result:=S;End;functionGenkey2 (C:integer):string;ConstChars='abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz';varS:string; I, N:integer;begin  ifC < -  Thenc: = -;  Randomize; S:="';  forI: =1  toC Do beginN:= Random (Length (Chars)) +1; S:= S +Chars[n]; End; Result:=S;End;proceduretform1.formcreate (sender:tobject);beginMemo1. Lines.add (GenID); Memo1. Lines.add (Genkey); Memo1. Lines.add (Genkey2 (Ten));End;

Delphi shares three random strings