Das hält auch anderen Betrachtungen nicht Stand. z.B.
Code: Alles auswählen
procedure TForm1.Button1Click(Sender: TObject);
var sl:TStringList;
begin
sl:=TStringList.create;
sl.Add('eins'+LineEnding+'zwei'+LineEnding+'drei');
Caption:=inttostr(sl.Count); //->1
Memo1.Lines.Assign(sl);
Caption:=Caption+' '+Inttostr(Memo1.Lines.Count); //->3
sl.free;
end;