[Alegun]

Точно, забыл что кнопки динамические

Но всё же можно ещё и так свободить

Код:

 for i := 1 to 3 do
  with Panel1.FindChildControl('but'+inttostr(i)) as TButton do Free;

для краткости