[[xEsk]]

He probado tu codigo, aparte de un pequeño error con el ejemplo que has puesto, me funciona bien, muestra el ultimo elemento añadido:

Código Delphi [-]
if Lista.Count > 0 then 
  ShowMessage(IntToStr(Lista.Count) + ' - ' + Lista[Lista.Count-1]);