[dec]

Hola,

A ver si esto puede servirte:

Código Delphi [-]
var
  i: integer;
begin
  for i := Panel1.ControlCount-1 downto 0 do
    Panel1.Controls[i].Free;
end;