En vez de stringreplace, usamos una funcion propia
Código:
function StrTran( const cText, cOrigen, cDesti:string ):string;
var
nPos:Integer;
begin
Result := cText;
if cOrigen<>cDesti then
begin
nPos:=Pos(cOrigen, Result);
while (nPos>0) do
begin
Result := Copy( Result, 1, (nPos-1))+cDesti+Copy( Result, nPos+Length(cOrigen), Length(Result) );
nPos:=Pos(cOrigen, Result);
end;
end;
end;
Saludos!!