[[eduarcol]]

aclareme algo, la busqueda funciono o no??

si no funciona prueba esto:

Código Delphi [-]
procedure buscar;
var
   cPalabra: String;
   nPos: Integer;
begin
   if InputQuery('Buscar...', 'Escriba la palabra a buscar', cPalabra) then
   begin
      nPos := Pos(cPalabra, Memo1.Text) - 1;
      Memo1.SetFocus;
      Memo1.SelStart := nPos;
      Memo1.SelLength := Length(cPalabra);
   end;
end;