Сворачивание компонентов на форме

Оформил: DeeCo

procedure TForm1.Button1Click(Sender: TObject);
 begin
   CloseWindow(Button1.Handle);
 end;