>>392
for i := 0 to ComponentCount -1 do
begin
　if Components[i] is TControl then
　　(Components[i] as TControl).Visible := false;
end;