Delphi-Help

function DeleteLineBreaks(const 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 := Trim(S);

end;

Edit1.Text := DeleteLineBreaks(Memo1.Text);