Ayuda con ControlCount

[JerS]

Hola amigos de la Comunidad de Delphi!, Hoy los molesto para que me ayuden con un problemita que tengo a la hora de liberar unos objetos de mi formulario aqui les muestro el codigo que estoy utilizando

for I:=0 to (sender as TPanel).ControlCount - 1 do
If (sender as TPanel).Controls[i].Name[1]='B' then
(sender as TPanel).Controls[i].free;

Pero no me elimina los objetos y me genera una Exception de EAccesViolation.

he intentado varias cosas pero nada, por eso prefiero preguntarle a los que saben .

Muchas Gracias!!