Keine doppelten Zufallszahlen mehr

[kurtm1]

Ich möchte ein Array mit Zufallszahlen füllen, wobei keine doppelt auftreten darf. Bis jetzt habe ich folgenden Code, es befindet sich aber irgendein Fehler drinnen, da ich noch doppelte Elemente bekomme.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a:Array [1..10] of Byte;
var b, x, Hilf:byte;
begin
        ListBox1.Clear;

        a[1]:=random(10)+1;

        for b:=2 to 10 do
        begin
        hilf:=random(10)+1;
                for x:=1 to b do
                begin
                if hilf=a[x] then
                repeat
                hilf:=random(10)+1
                until hilf<>a[x];
                end;
                a[b]:=Hilf;
        end;

        for b:=1 to 10 do
        ListBox1.Items.Add(inttostr(a[b]));
end;

thx im voraus