Stringlist ohne Zeilenumbruch speichern

[BMI]

Hallo, ich würde gerne eine Stringlist speichern, ohne daß hinten noch ein Zeilenumbruch drangepappt wird.

Delphi-Quellcode:

function Zaehl():Boolean ;
var i, j, Max : INteger;
    s: String;
    SL: TStringlist;
begin
SL := TStringlist.create;

s := '';
Max := 4;
  for i := 0 to Max-1 do
     begin
////////////// steht unten ///////////////////
     end;
sl.Clear; //  << SELBST hier bei kommt eine Datei mit 2 Zeichen  (=Zeilenumbruch) raus.
SL.Add(s);
sl.SaveToFile ('.\Zahldatei.txt');

SL.free;
END; // function

Was ich eigentlich haben möchte ist eine Stringlist, die eine 4 Zeilen Datei erzeugt, mit den Zahlen von 1-4 untereinander. (ggf später mehr)
also ohne #13#10 ganz unten dran.

Delphi-Quellcode:

function Zaehl():Boolean ;
var i, j, Max : INteger;
    s: String;
    SL: TStringlist;
begin
SL := TStringlist.create;

s := '';
Max := 4;
   for i := 0 to Max-1 do
     begin
//
      if i < Max -1   then // bei -1 pappt er die 3 direkt an die 4 und dann kommt nocho ein Zeilenumbruch.
         S:= S +   inttostr(i+1) // + #13#10
      else
         S:= S +  inttostr(i+1);
//
end;
SL.Add(s);
sl.SaveToFile ('.\Zahldatei.txt');

SL.free;
END; // function

gibt mir aus:

Zitat:

1
2
3
4
_

_ steht hier für den Zeilenumbruch

1) Wie kann ich das abstellen?
2) und wozu ist/ war die Funktion ("auch bei StringListen unten immer #13#10 anhängen") damals gut/ implementiert worden?
Ich hatte mich da nur beim Memo immer über den angehängten Zeilenumbruch geärgert + gewundert, aber daran gewöhnt, da der bei der Verarbeitung von memo.text nie auftauchte und nur bei der Ausgabe im Memo wieder auftauchte.

Wenn ich Einstellungen einer Datei speicherte, war mir das immer egal, denn alles funktionierte auch später beim Laden in eine Stringlist.

Ich wüßte aber jetzt auch nicht, unter welchem Stichwort ich nacsuchen/nachschlagen müßte.