[JerS]

Empezado por Neftali

Utiliza TAG's en tus mensajes, se leen mejor (compara tu código con el mío):

Modifica el código y cambialo por éste:

Código Delphi [-]
   
   // comprueba que el sender es un TPanel, si no vas a tener problemas...
   if not (Sender is TPanel) then
     Exit;
   
   // relizamos la cuenta en orden inverso
   for I:= ((sender as TPanel).ControlCount - 1) downto 0 do
     If (sender as TPanel).Controls[i].Name[1]='B' then
                     (sender as TPanel).Controls[i].free;

Neftali muchas Gracias, pero me sigue dando la Exception. especificamente en esta linea de codigo
If (sender as TPanel).Controls[i].Name[1]='B' then