class TForm1 : public TForm
{
__published:	// IDE 管理のコンポーネント
    ...
    void __fastcall FormCreate(TObject *Sender);
private:	// ユーザー宣言
    void __fastcall WinSuspension(TWMQueryEndSession &Msg); // サスペンド検知
public:		// ユーザー宣言
    __fastcall TForm1(TComponent* Owner);

    BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER( WM_POWERBROADCAST , TWMQueryEndSession , WinSuspension ) // サスペンド検知
    END_MESSAGE_MAP(TForm)
};

void __fastcall TForm1::WinSuspension(TWMQueryEndSession &Msg)
{
    if(Msg.Source == PBT_APMSUSPEND){
        // サスペンドされる前に、行いたい処理を書きます。
    }else if(Msg.Source == PBT_APMRESUMESUSPEND){
        ShowMessage("サスペンドからレジュームしました！");
    }
}