meine Lösung sieht so aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
function DeleteWordWraps(Value: String): String;
begin
Result := Value;
While AnsiPos(String(#13+#10), Result) > 0 do
Delete(Result, AnsiPos(String(#13+#10), Result), 2);
end;
begin
Memo1.Text := DeleteWordWraps(Memo1.Text);
end;