[Pascal] Randomize

[n0stress]

(*
Author : DarkCoderSc
Function To randomise any string =)
*)

Function RandomName : String;
const  Chars = '0123456789ABCDEFGHJKLMNPQRSTUVWXYZ';
var
S: string;
i, N: integer;
begin
Randomize;
S := '';
for i := 1 to 8 do begin
    N := Random(Length(Chars)) + 1;
    S := S + Chars[N];
 Result := S;
End;
End;

Funçao muito util por vezes