Localizar palavras no texto

coloca um FindDialog e no OnFind dele

procedure TForm1.FindDialog1Find(Sender: TObject);
var
i,j: integer;
sel, PosR: integer;
begin
for i:= 0 to RichEdit1.Lines.Count do begin
PosR:= Pos(FindDialog1.FindText, RichEdit1.Lines[i]);
if PosR > 0 then begin
sel:= 0;
for j:= 0 to i-1 do
sel:= sel + Length(RichEdit1.Lines[j]);
sel:= sel + (i*2);
sel:= sel + PosR - 1;
RichEdit1.SetFocus;
RichEdit1.SelStart:= sel;
RichEdit1.SelLength:= Length(FindDialog1.FindText);
Break;
end;
end;
end;

pra executa-lo coloque num botao

FindDialog1.Execute;


pra Memo é a mesma coisa