Alle, auf 0, weil bei dir 0 nie vorkommt, und du wolltest doch astronomische Zahlen wie 2362734 vermeiden... Bei dir sähe der Showmessage-Code dann so aus:
Delphi-Quellcode:
var Used: array[1..10] of Integer; i, x, t: Integer;
begin
Randomize;
i := 1;
FillChar(Used[1], 10*sizeof(Uses[1]), 0);
while i <> 11 do
begin
t := Random(10)+1;
for x := 1 to i do
if Used[x] = t then Break;
if x = i+1 then
begin
ShowMessage(IntToSTr(t));
Used[i] := t;
Inc(i);
end;
end;
end;