问题已经解决,谢谢!procedure TForm1.Button1Click(Sender: TObject);var i:Integer;begin for i:= scrollbox1.ControlCount - 1 downto 0 do scrollbox1.Controls[I].Free; showmessage('ok');end;