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

Puedes crear una función que te sustituya los caracteres de CR y LF por espacios. Yo suelo utilizar ésta o alguna variante:

Código Delphi [-]
 {:Elimina los saltos de línea de un TStrings.
   Elimina los saltos de línea (caracteres #10 y #13; salto de linea y salto
   de carro) de un TStrings.
   @param    Strs            TStrings del que se desean eliminar los caracteres
   @param    CharReplace  Caracter a sustituir
 }
 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;