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

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

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

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

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;