Вывести в Memo2 надпись "В 10-ку!(win)", при условии, что число, сгенерированное функцией [random] в Memo1, равно 10

Условие.

Memo1 наполняется циклом от 1 до N (N - RandomRange(100,200)). Каждый раз, при проходе цикла, в Memo1 добавляется текст, часть которого генерируется "наугад" (Memo1.Lines.Add('xxx'+inttostr(random(100))+'yyy' )). "XXX" и "YYY" - условно, текст произвольной длинны и набора символов.

Задание.

Вывести в Memo2 надпись "В 10-ку!(win)", при условии, что число, сгенерированное функцией [random] в Memo1, равно 10. В противоположном случае, в Memo2 вывести надпись "Мимо!(lose)".

Компоненты Memo1 и Memo2 расположены на форме друг напротив друга. Строки Текста из Memo1 и Результат Memo2 должны совпадать.

Задание необходимо решить путем сравнения строковых переменных. Для решения не допускается применение значений функции [random].

procedure TForm1.Button1Click(Sender: TObject);
var n,i,j:integer;
begin
n:=RandomRange(1000,2000);
For i:=1 to n do
memo1.Lines.Add(edit1.Text+inttostr(random(7))+edit2.Text);
for j:=0 to Memo1.Lines.Count-1 do
  if pos('5',Memo1.Lines[i])>0 then memo2.Lines.Insert(j,'win')
  else memo2.Lines.Insert(j,'lose');
end;

автор: DenZH