[Neftali [Germán.Estévez]]

¿Algo así?

Código Delphi [-]
 function QuitarSaltosLinea(Strs: TStrings; CharReplace:String=STR_EMPTY):String;
 var
   Str:string;
 begin
   Str := AnsiReplaceStr(Strs.Text, #10, CharReplace);
   Result := AnsiReplaceStr(Str, #13, CharReplace);
 end;