Löschen aus der StringList verursacht Fehler, wieso?

[Perlsau]

Ich glaube, das Mißverständnis besteht darin, daß Luckie mit seinem "Eben nicht" auf das Posting von AlexII geantwortet hat und nicht auf das von Popov. Passiert manchmal, wenn einer "zwischenrein" postet

Dieses Beispiel funktioniert korrekt (eben schnell in CodeTyphon getippt und getestet):

Delphi-Quellcode:

procedure TFormMain.Button2Click(Sender: TObject);
Var
  Liste : TStringList;
  i     : Integer;
begin
  Liste := TStringList.Create;

  Try
    For i := 1 To 10 Do
        Liste.Append('Eintrag ' + IntToStr(i));
    ShowMessage('Listen-Zahl = ' + IntToStr(Liste.Count));
    For i := Liste.Count -1 DownTo 0 Do
        Liste.Delete(i);
  Finally
    ShowMessage('Listen-Zahl = ' + IntToStr(Liste.Count));
    Liste.Free;
  End;
end;