Hallo,
Du könntest auch mit einer StringList arbeiten.
Mit der StringList ist es möglich die Liste zu sortieren
und doppelte Einträge zu unterdrücken.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
sl :TStringList;
begin
sl := TStringList.create;
sl.Sorted:=true;
sl.Duplicates:=dupIgnore;
while sl.Count -1 < 14 do
sl.add(format('%.3d',[(random(100)+1)]));
Memo1.Lines.Assign(sl);
sl.free;
end;
Grüße
Klaus