Собственно то, что хотел спросить.

Спасибо.

В formcreate я и так запускаю Randomize. Из диапазона 1-300 пытаюсь выбрать 100 случайных значений. Попадаются повторы...

srf2000:

Вот как проверить и есть основная проблема :)

Сашка:

Именно так я себе это и представляю, а написать не могу...

Проблему удалось более или менее удовлетворительно решить следующим образом:

procedure TForm1.Button1Click(Sender: TObject);
var
_a, _ar: Integer;
_abn: array[0..99] of Integer;

function aaa(): Integer;
var
j: Integer;
begin
j := 1;
_a := Random(300);
while j <= 100 do
begin
if _abn[j] = _a then
begin
_a := Random(300);
j := 0;
end;
j := j+1;
end;
Result := _a;
end;

begin
for _ar := 1 to 100 do
_abn[_ar] := 0;

for _ar := 1 to 100 do
begin
_abn[_ar] := aaa();

........

end;
end;