Hola joseprad.
Creo recordar que ya habíamos tratado un asunto similar, pero no puedo encontrar el hilo...
Fijate si te sirve de este modo:
Código Delphi
[-]
function DelSubstr(const Str, substr: string): string;
begin
Result := StringReplace(Str, substr, '', [rfReplaceAll]);
end;
Ej. de uso:
Código Delphi
[-]
var
str : string = 'prueba '+#$D#$A+ 'con '+#$D#$A+'saltos '+#$D#$A+'de '+#$D#$A+'linea';
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(str + #$D#$A + DelSubstr(Str, #$D#$A));
end;
(Puse la función StringReplace dentro de una función para que quede mas claro el ejemplo, pero podes usarla directamente)
Saludos
