Сворачивание,разворачивание формы (SC_MINIMIZE,SC_MAXIMIZE)

[Dj_SheLL]

Делаю,как описано в этой статье,с единственным различием,что вместо

Main.Visible := False

пишу

Form1.Height:=32

типа получается такая свёрнутая панелька.
Вот а как её развернуть до первоначальных размеров?Подскажите пожалуйста.
Делаю так

procedure TForm1.WMGetSysCommand(var message : TMessage) ;
begin
  if (message.wParam = SC_MINIMIZE) then
    Form1.Height:=32
  else
    inherited;
  if (message.wParam = SC_MAXIMIZE) then
    Form1.Height:=640
  else
    inherited;
end;

Но что-то так не айс...
Программку приложил.

[Terran]

Ваш код полностью работает, но только для (С Вашей статьи) "Перехват нажатия на системные кнопки формы (закрытие, минимизация окна и т.д.) " Вы наверное имеете в виду, что когда форма свёрнута на панель Пуск, то она потом при вызове не разворачивается? Если да, то Вам надо ловить другие системные команды. Какие именно не помню.

[Dj_SheLL]

Вот я добился чего хотел.Вот в чём была моя идея:

procedure TForm1.WMGetSysCommand(var message : TMessage) ;
begin
  if (message.wParam = SC_MINIMIZE) then
    if Form1.Height<>32 then
    Form1.Height:=32
    else
    Form1.Height:=640
  else
    inherited;
end;