Kompilier das mal und lass es laufen:
Delphi-Quellcode:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils, Classes;
var
sl : TSTringlist;
i : Byte;
begin
sl := Tstringlist.Create;
for i := 0 to sl.Count - 1 do
begin
writeln(i);
end;
sl.Free;
readln;
end.
Die Schleife läuft von 0 bis -1. Wo ist da dein Problem? Da i erst -1 wird, wenn es zu einen Überlauf kommt, läuft die Schleife eben bis dahin. In diesem Fall bis 255.
Und wähl bitte einen aussagekräftigeren Titel.