bei Random niemals diegleiche Zahl

[Illuminator-23-5]

normale zufallsgeneratoren werden ja mit zufallszahlen-listen gemacht. in denen kommen alle Ziffern, Ziffernpaare, ZiffernTripel gleich oft vor (sollten sie zumindest). Je genauer das beachtet wird, desto genauer wird der generator.
Ich hab hier versucht, etwas zu schreiben, das hinkommen könnte:

Delphi-Quellcode:

TRandom = object
  Strings: TStrings;
  procedure Create; 
  procedure Destroy;
  procedure Randomize;
  function Random: integer;
  procedure SetLength(l: integer);
end;

procedure TRandom.Create;
begin
  Strings := TStrings.Create;
end;

procedure TRandom.Destroy;
begin
  Strings.Destroy;
end;

procedure TRandom.SetLength(l: integer);
begin
  strings.Clear;
  for i := 1 to l do
    strings.Add(IntToStr(i);
end;

procedure Randomize;
begin
  Randomize;
end;

function Random;
begin
  result := StrToInt(strings[random(strings.count)]);
end;

Man könnte auch selbst eine solche liste schreiben schreiben und den zufallsgenerator total selbst programmieren!!
(für listen eignen sich auch die kommastellen von unendlichen, aber nicht periodischen Zahlen, wie Pi, Wurzel2 und Eulersche Zahl!)!!