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.