Auszug aus der Online-Hilfe:
Zitat von
OH:
Passt Zeilenumbruchzeichen an den Windows- oder Linux-Stil an.
Unit
SysUtils
Syntax
[ Delphi ] function AdjustLineBreaks(const S: string, Style: TTextLineBreakStyle): string;
Beschreibung
AdjustLineBreaks gibt einen String mit angepassten Zeilenumbrüchen zurück.
S ist der String, der konvertiert werden soll.
Style gibt an, ob Zeilenumbrüche im Windows-Stil mit Wagenrücklauf und Zeilenvorschub (tlbsCRLF) oder im Linux-Stil mit einem einzelnen Zeilenvorschubzeichen (
tlbsLF) vorgenommen werden. Wird dieser Parameter nicht angegeben, werden automatisch die Zeilenumbrüche des Compilierziels verwendet.
Man muss also nur beim Aufruf
Style mit
tlbsLF angeben (und danach ggf. noch einen Durchlauf mit tlbsCRLF).
Aber du hast Recht: StringReplace(#13#13, #13, ...) sollte reichen.