Listo Amigos muchas Gracias
for I:= ((sender as TPanel).ControlCount - 1) downto 0 do
If (sender as TPanel).Controls[i].Name<>'' then
If (sender as TPanel).Controls[i].Name[1]='B' then
(sender as TPanel).Controls[i].free;
mi error era que estaba preguntando
If (sender as TPanel).Controls[i].Name[1]<>'' then
y eso esta errado porque si esta '' es imposible que consiga algo en este indice [1];
Muchas Gracias