Código Delphi [-] for I := 0 to Lista.Count - 1 do begin showmessage(IntToStr(I)); end;
for I := 0 to Lista.Count - 1 do begin showmessage(IntToStr(I)); end;