[Gate007]

Вот такой код:

Код:

function TForm1.DeleteLineBreaks(S: string): string;
var
  Source, SourceEnd: PChar;
begin
  Source := Pointer(S);
  SourceEnd := Source + Length(S);
  while Source < SourceEnd do
  begin
    case Source^ of
      #10: Source^ := #32;
      #13: Source^ := #32;
    end;
    Inc(Source);
  end;
  Result := S;
end;

Минус его состоит в том, что он заменяет 1 перенос строки на 2 пробела, а нужно, чтобы только на один.
На входе - поле мемо, в нем несколько строк. Функция вызывается с параметром DeleteLineBreaks(memo1.Lines.Text).