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

Una alternativa podría ser algo así, pero tendrás que probar si realmente es más eficiente:

Código Delphi [-]
  Result := AnsiReplaceText(StatementLines.Text, sLineBreak, ' ');

Y añadir al uses la unit StrUtils.