Borrar Panel me sale Access Violation

[LiAnTe-]

Hola a todos,

tengo un problema bastante gordo, tengo una aplicacion que creo botones en tiempo de ejecucion y al boton le asigno una accion a cada uno de ellos hasta aqui bien, pero cuando tengo que borrar los botones para insertar los nuevo de tanto en tanto me da un Acess Violation siempre es diferente por norma...

pero he estado buscando y mirando y si le quite este codigo no me da un access violation pero claro despues no me borra los botones...

Procedure TGesVentasBar.BorrarPanelPersonal;
var
i: Integer;
begin
for i:= ComponentCount -1 downto 0 do
begin
if (Components[i].ClassType = TSpeedButton)and
(TSpeedButton(Components[i]).Parent = Personal) then
Components[i].Free;
end;
end;

que solucion puedo hacer, para evitar que me salte cada 2 por 3 el access violation y pueda usar este codigo para borrar los iconos antes de volverlos a crear...

SAludos.