Eliminar objeto en StringList

[Stell DG]

Bueno, tengo almacenados objetos en un StringList y quiero ir eliminando de uno en uno según lo que se pida, siempre quiero que se elimine el primero que está en el StringList pero no todos al mismo tiempo. Esto es lo que tengo para eliminar:

Código Delphi [-]
Timage(ListaImagenes.Objects[0]).Free;
   ListaImagenes.Delete(0);

según yo aquí siempre elimina el primero que hay en la lista
pero me sale el error de:

"List index out of bounds(0)"

no siempre es el cero a veces es otro número. Como soluciono esto?