Ayuda con la propiedad Controls

[JerS]

Buenas Amigos de la comunidad de Delphi! hoy los molesto para que me ayuden con lo siguiente!

me interesa eliminar casi todos los objetos que estan emparentados en un Panel Principal, me funciona muy bien! con 2 objetos pero cuando agrego un tercero me da la siguiente exception

ElistError List index out of bounds(2).

lo extraño es cuando veo en el debuger tiene problemas al liberar los objetos pares no los impares Ejm: elimina el 0, 1, cuando viene el 2 salta de una vez al 3 y luego cuando intenta liberar el 2 le dice que no es un valor accesible y me da la exception.

Aqui esta el codigo que utilizo para liberar los objetos

for I:=0 to Panel1.ControlCount -1 do
If Panel1.Controls[i].Name<>'' then
Panel1.Controls[i].Free;