for I := 1 to SL.Count do; oder for I := 0 to SL.Count -1 do

[ibp]

Delphi-Quellcode:

var
  I: Integer;
  SL: TStringList;
begin
  SL := TStringList.Create;

  try
    SL.Add('0');
    SL.Add('1');
    SL.Add('2');

    for I := 0 to SL.Count-1 do
    begin
      ShowMessage(SL.Strings[I]);
    end;
  finally
    SL.Free;
  end;
end;

Fazit: Es werden 0, 1 und 2 angezeigt.