Поиск и замена текста

[ZvEr_HaCkEr]

Кинь на форму replacedialog1 и в событие replace напиши следующий код:

procedure TForm4.ReplaceDialog1Replace(Sender : TObject);
label 10;
begin
Memo1.HideSelection:=true;
10:
if pos(ReplaceDialog1.FindText,Memo1.T ext)<>0 then
begin
Memo1.SelStart:=pos(ReplaceDialog1. FindText,Memo1.Text)-1;
Memo1.SelLength:=Length(ReplaceDial og1.FindText);
Memo1.SelText:=ReplaceDialog1.Repla ceText;
goto 10;
end;
Memo1.HideSelection:=false;
end;
end.