Problema out of bounds TObjectList con count mayor a cero

[jasmad]

Buenas,

En este momento me encuentro experimentando con las TObjectList, ya que estas son muy simples de usar para alguien que no sabe trabajar con punteros(como yo), todo iva excelente, cuando creo la lista

Código Delphi [-]
lista := TObjectList.Create(true)

y empiezo añadir elementos

Código Delphi [-]
lista.Add(Empleado)

, inclusive cuando hago esto

Código Delphi [-]
tempEmpleado := (lista.Extract(lista[0]) as TEmpleado);

todo bien. Pero el item siguiente me genera error

Código Delphi [-]
tempEmpleado := (lista.Extract(lista[1]) as TEmpleado);

con la excepcion de out of bounds indicando que el elemento en el index 1 no existe cuando

Código Delphi [-]
ShowMessage(intttostr(lista.Count));

me muestra que es igual a tres. No se si esque estoy trabajando mal el list.

Gracias por la ayuda brindada