TMemo: Text mit festem Zeilenumbruch speichern

[SirThornberry]

Ich hoffe diesmal hat sich kein Fehler eingeschlichen

Delphi-Quellcode:

procedure WriteTextToFile(AMaxLineChars: Integer; AText, AFilename: String);
var LStr, LToWrite, LLastPart: String;
    LPos: Integer;
    LStream: TStream;
begin
  LStream := TFileStream.Create(AFilename, fmCreate);
  LStr := StringReplace(AText, #13#10, '', [rfReplaceAll]);
  LToWrite := '';
  while (LStr <> '') do
  begin
    LPos := Pos(' ', LStr);
    if LPos = 0 then
    begin
      LLastPart := LStr;
      LStr := '';
    end else begin
      LLastPart := copy(LStr, 1, LPos - 1);
      LStr := copy(LStr, LPos + 1, length(LStr));
    end;

    if LToWrite = '' then
      LToWrite := LLastPart
    else begin
      if length(LToWrite + ' ' + LLastPart) > AMaxLineChars then
      begin
        LToWrite := LToWrite + #13#10;
        LStream.Write(LToWrite[1], length(LToWrite));
        LToWrite := LLastpart;
      end else
        LToWrite := LToWrite + ' ' + LLastPart;
    end;
  end;
  if LToWrite <> '' then
    LStream.Write(LToWrite[1], length(LToWrite));
  LStream.Free;
end;

Aufruf wie folgt:
WriteTextToFile(70, Memo1.Text, YourFilename);