рандомизированное удаление строк из Memo

[Bucknall]

Здравствуйте.
Delphi 7.
Есть Memo, содержащий строки, например

нулевая
первая
вторая
третья
четвертая
пятая
шестая
седьмая

сначала определяем случайную строку из memo1:
x:=random(memo1.lines.count)

затем считываем строку memo1.lines[x]

когда количество обращений к одной определённой строке memo1 достигнет, например, 5 - строка из memo1 удаляется. И так в цикле очищается весь memo1

Как это реализовать? я пытался так:

procedure TForm1.Button1Click(Sender: TObject);
var ar, ar1: array of integer; i, x: integer;
begin
  randomize;
  memo1.Text := '';
  memo1.Lines.Add('нулевая');
  memo1.Lines.Add('первая');
  memo1.Lines.Add('вторая');
  memo1.Lines.Add('третья');
  memo1.Lines.Add('четвёртая');
  memo1.Lines.Add('пятая');
  memo1.Lines.Add('шестая');
  memo1.Lines.Add('седьмая');

  setlength(ar, Memo1.Lines.Count);
  setlength(ar1, Memo1.Lines.Count);

  while Memo1.Lines.Count > 1 do
  begin
    x := random(length(ar));
    inc(ar[x]);
    memo2.Lines.Add(inttostr(ar[x]) + '-е обращение к строке "' + memo1.Lines[x] + '"');
    if ar[x] >= 5 then
    begin
      ar1 := ar;
      memo2.Lines.Add('----' + memo1.Lines[x] + ' ушла на ' + inttostr(ar[x]) + '-м обращении' + '----');
      for i := length(ar) - 1  downto x do
      begin
        if i > 0 then ar[i - 1] := ar1[i];
      end;
      setlength(ar, length(ar) - 1);
      setlength(ar1, length(ar) - 1);
      Memo1.Lines.Delete(x);
    end;
  end;

  memo2.Lines.Add(inttostr(ar[0]));

  ar := nil;
  ar1 := nil;
end;

вопросы
1. куда смотреть для рационализации алгоритма? Уверен, что использование 2-х массивов изящным решением не назовешь (Кстати, не обязательно очищать Memo со строками, можно чтобы рэндом[x] к уже считанным из него n-раз строчкам просто больше не обращался). Использовать множество? Или - массив плюс буферную переменную..?
2. что не так в этом алг-ме, что во втором memo иногда проскакивают странные цифры?
3. при Memo1.Lines.Count>0 - чтобы очистить memo1 совсем - ошибка "Range check error". Как исправить?

Спасибо

[Serge_Bliznykov]

такой вариант решения устроит?

procedure TForm1.Button2Click(Sender: TObject);
var i,x,cnt  : integer;
  TS : TStringList;
begin
  Randomize;

  TS := TStringList.Create;
  for i := 0 to Memo1.Lines.Count - 1 do
     TS.AddObject(memo1.Lines[i], Pointer(0) );

  while TS.Count>0 do begin
     x:=random(TS.Count);
     cnt := Integer(TS.Objects[x])+1;
     memo2.Lines.Append(TS.Strings[x]+ ' ('+IntToStr(cnt)+')' );
     if cnt >= 5 then begin {если есть пять обращений - удаляем объект из списка}
        Memo2.Lines.Append(' --- выкинули строку: '+TS.Strings[x]);
        TS.Delete(x);
     end
     else
        TS.Objects[x] := Pointer( cnt ); {увеличим счётчик}
  end;
  FreeAndNil(TS);
end;

(при выводе строки в Memo2 я в скобках вывожу какое это обращение. разумеется, это можно убрать...)

[Bucknall]

Да, замечательно, спасибо
я к этому времени уже соорудил что-то наподобие

procedure TForm1.Button3Click(Sender: TObject);
var ar: array of integer; buf, i, x: integer;
begin
   SetLength(ar, memo1.Lines.Count);
  while length(ar) > 0 do
  begin
    x := random(memo1.Lines.Count);
    if ar[x] < 5 then
    begin inc(ar[x]);
      memo2.Lines.Add(inttostr(ar[x]) + '-е обращение к строке "' + memo1.Lines[x] + '"');
    end
    else
    begin
      memo2.Lines.Add('----' + memo1.Lines[x] + ' ушла на ' + inttostr(ar[x]) + '-м обращении' + '----');
      for i := length(ar) - 2 downto x do
      begin
        buf := ar[i];
        ar[i] := ar[length(ar) - 1];
        ar[length(ar) - 1] := buf;
      end;
      SetLength(ar, length(ar) - 1);
      memo1.Lines.Delete(x);
    end;
  end;
  ar := nil;
end;

но Ваш код выглядит (да и работает, вроде) лучше ) Благодарю!)