[Aristarh Dark]

Можно вот так (у TMemo не забудь поставить HideSelection в False):

Код:

procedure FindInMemo(aMemo:TMemo;aText:String);
var
  p:integer;
begin
  p:=pos(aText,aMemo.Text);
  if p>0 then
    begin
      aMemo.SelStart:=p-1;
      aMemo.SelLength:=Length(aText);
      ShowMessage(Format('Найдено в позиции %d',[p]));
    end
  else
    ShowMessage('Не найдено');
end;