zufällig erstellte Zahlen (gleiche Zahlen verbieten)

[Trouble_Maker]

Hiho
hab da mal ne kleine Frage! Hier ist mein Code um zufällig Zahlen von 1 zu Maxelements (in meinem Fall 300) zu erstellen. Funktioniert ohne Probleme.

Delphi-Quellcode:

begin
    memo1.clear;
    image1.canvas.brush.color := clblack;
    image1.canvas.Rectangle(0,0,image1.width,image1.height);
    for i:= 1 to maxelements do begin
    p[i] := random(maxelements);
    image1.canvas.Pixels[i,p[i]] := clyellow;
end;

Doch wie muss ich den Code umschreiben, dass keine Zahl doppelt vorkommen darf, was ja hier der Fall ist!

Danke im Voraus


Trouble_Maker