Сворачивания и разворачивания формы с определением

WindowState = wsMinimized;

class TForm1 : public TForm
{
__published: // IDE-managed Components
    // тут компоненты и обработчики
 
private: // User declarations
    // добавляешь описание метода и карту сообщений:
    void __fastcall OnSysCommand(TWMSysCommand& message);
protected:
    BEGIN_MESSAGE_MAP
        VCL_MESSAGE_HANDLER(WM_SYSCOMMAND, TWMSysCommand, OnSysCommand)
    END_MESSAGE_MAP(TForm)
 
public: // User declarations
    __fastcall TForm1(TComponent* Owner);
};
 
// реализация метода
void __fastcall TForm1::OnSysCommand(TWMSysCommand& message)
{
    // это сообщение форма получает при сворачивании/разворачивании любым способом
    if(message.CmdType == SC_MINIMIZE)
    {
        // тут твои действия по минимизации
    }
    else if(message.CmdType == SC_MAXIMIZE)
    {
        // тут действия по разворачиванию формы
    }
    else // ни одно из нужных действий не произошло - вызываем дефолтный обработчик
    {
        TForm::Dispatch(&message);
    }
}