Hier ein Beispiel wie gut oder schlecht Random Zufallswerte produziert. Theoretisch müsste alles schwarz sein, ist aber knapp dran:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
x, y, i, z: Integer;
begin
z := Width * Height;
for i := 0 to z do
begin
x := Random(Width);
y := Random(Height);
Canvas.Pixels[x, y] := clBlack;
end;
end;