[marcoszorrilla]

Para buscarlo prueba esto:

Código Delphi [-]
  procedure TForm1.Button1Click(Sender: TObject);
  var
  nCont:Integer;
  begin
    For nCont:=0 to memo1.Lines.Count - 1 do
    begin
     if pos(Uppercase(Edit1.Text),UpperCase(memo1.lines[nCont])) > 0 then
     ShowMessage('La palabra está en la línea:'+IntTostr(nCont)+Memo1.Lines[nCont]);
    end;
  end;

Una vez encontrado creo que no tengas problemas en sustituirlo.

Un Saludo.