[PhoeniX]

.....нафиг так то?

Код:

procedure filter_doc(ms:tmemorystream;before,after:string);
var
  st:string;
begin
  st:=TStringStream(ms).DataString;
  st:=stringreplace(st,before,after,[rfReplaceAll, rfIgnoreCase]);
  ms.Size := 0;
  ms.Write(st[1],length(st));
end;