Ich hatte das mal getestet:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to Memo1.Lines.Count - 1 do
Memo2.Lines.Add(Memo1.Lines[I]);
Memo2.Lines.Add('->' + IntToStr(I));
end;
Wenn Count = 0 ist (also bis -1 bzw. gar nicht gezählt wird) enthält I einen Zufallswert (124567 o.ä.).
Es wäre ja nicht schlecht, wenn der Compiler wenigstens -1 in I schreiben würde, aber da lässt sich natürlich drüber streiten.
Jedenfalls wäre es nicht schädlich und würde weniger Probleme verursachen.