[dulingleb]

Привет ребята.
Я тут забомбил такой вот код:

function GetRandomLine(SL:TStrings):string;
begin
result:=SL1[random(SL1.Count)];
end;

...
per:=StrToIntDef(Edit2.Text, -42);
zad:=edit1.Text;
if edit1.Text=zad then
begin
SL1:=TStringList.Create;
SL1.LoadFromFile('data/web/'+zad+'/1.txt');
for i:=1 to per do
Memo1.Lines.add(GetRandomLine(SL2 ));
end;
...

Но мне захотелось чего-то большего. И я решил сделать так, чтобы случайные строки не повторялись. Но после 3 дней моих усилий я понял что я нечтожество и без вашей помощи у меня ни чего не получиться.

Ребята, будьте добры, помогите пожалуйста.
Я буду очень вам благодарен.

Заранее спасибо!