[Pyro]

PHP код:

procedure SearchAndReplace( Rich: TRichEdit; InSearch,InReplace: String );
var
 X,ToEnd: Integer;
begin
 X := 0;
 ToEnd := Length( Rich.Text );
 X := Rich.FindText( inSearch,X,ToEnd,[] );

 While X <> -1 Do Begin
 Rich.SelStart := X;
 Rich.SelLength := Length( inSearch );
 Rich.SelText := inReplace;
 X := Rich.FindText( inSearch,X + Length( inReplace ),ToEnd,[] );
 End;
end; 


такое работает?