Hola.
Y para no dejar la consulta del mensaje
#10 sin respuesta...
Código Delphi
[-]
procedure TForm1.btnDelPanelCtrlsClick(Sender: TObject);
var
i: Integer;
begin
with Panel1 do
begin
Caption := EmptyStr;
for i := ControlCount-1 downto 0 do
Controls[i].Free;
end
end;
Saludos