Bueno... no sabía que tenías paneles... pero eso es sencillo...
puedes usar recursividad....
Código Delphi
[-]
procedure Limpiar(Padre:TObject);
begin
(...)
if Control is TPanel then Limpiar(Control);
(...)
end;
o algo por el estilo (que estoy escribiendo de memoria...