[pireved]

Код:

function filter_doc(ms:tmemorystream;before,after:string):tmemorystream;
var
st:string;
ss:tstringstream;
ms2:tmemorystream;
begin
ss:=tstringstream.Create('');
ms2:=tmemorystream.Create;
ss.CopyFrom(ms,ms.Size);
st:=ss.DataString;
st:=stringreplace(st,before,after,[rfReplaceAll, rfIgnoreCase]);
ss.Seek(0,0);
ss.WriteString(st);
ms2.LoadFromStream(ss);
result:=ms2;
ms2.Free;
ss.Free;
end;

в чем ошибка(и)?