[Aristarh Dark]

Вообще-то я имел в виду вот это:

Код:

procedure TForm1.MFind(Value:String;Obj:TMemo);
var
  FPos:integer;
begin
  FPos:=pos(Value,Obj.Lines.Text);
  while FPos>0 do
    begin
      Obj.SelStart:=FPos-1;
      Obj.SelLength:=Length(Value);
      if MessageDlg('Ïðîäîëæèòü?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
        FPos:=PosEx(Value,Obj.Lines.Text,FPos+1)
      else
        FPos:=0;
    end;
end;