tempo fa' feci un programma per memorizzare del testo non uso tmemo ma trichedit....

faccio cosi:

codice:
procedure TFrmAgenda.BtnFindClick(Sender: TObject);
begin
 FindDialog1.FindText := RichEdit1.SelText;
 FindDialog1.Execute;
end;