[mauqu]

componentes:=ComponentCount-1;
for i:=0 to Componentes do
begin
try
if (Components[i] is TPanel) then
RemoveComponent(Components[i]) ;
except
end;
end;

la idea es que siga haciendo el bucle, pero ni bien salta el error se sale del for