RegisterHotKey

if (Msg.message == WM_HOTKEY)

//---------------------------------------------------------------------------
 
#ifndef KeyBoardMan_UnitH
#define KeyBoardMan_UnitH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "sLabel.hpp"
#include "sSkinManager.hpp"
#include <Dialogs.hpp>
#include <mmsystem.hpp>
#include <AppEvnts.hpp>
#include "sButton.hpp"
#include <Menus.hpp>
#include <ExtCtrls.hpp>
#include "sPanel.hpp"
#include <IniFiles.hpp>
#include "ProgressUnit.h"
#include <fstream.h>
#include <map.h>
#include "StatictisUnit.h"
#include <jpeg.hpp>
 
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published:    // IDE-managed Components
    TsSkinManager *sSkinManager1;
    TOpenDialog *OpenDialog1;
    TLabel *lRight;
    TLabel *lLeft;
    TApplicationEvents *ApplicationEvents1;
    TsPanel *TextPanel;
    TTimer *TimerPause;
    TTimer *TimerAct;
    TLabel *LabelSpeed;
    TsPanel *PnlTime;
    TImage *Image1;
    TLabel *LabelPercent;
    TMainMenu *MainMenu1;
    TMenuItem *N1;
    TMenuItem *N2;
    void __fastcall InitVariables();
    void __fastcall FirstStart();
    void __fastcall SetFile(AnsiString fname);
    void __fastcall GetFirstString();
    void __fastcall Start();
    void __fastcall FormKeyPress(TObject *Sender, wchar_t &Key);
    void __fastcall PauseKeyPress(TObject *Sender, wchar_t &Key);
    void __fastcall Pause();
    void __fastcall TrueChar();
    void __fastcall WrongChar();
    void __fastcall SetOptimalSize();
    void __fastcall SetMinimalSize();
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall SwitchSize();
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
    void __fastcall GetINI();
    void __fastcall SetINI();
    void __fastcall Restore();
    AnsiString __fastcall GetTime();
    short __fastcall GetSpeed();
    void __fastcall TimerPauseTimer(TObject *Sender);
    void __fastcall TimerActTimer(TObject *Sender);
    void __fastcall PnlTimePaint(TObject *Sender, TCanvas *Canvas);
    short __fastcall GetSessionTime();
    float __fastcall GetFaultsPercent();
    void __fastcall N1Click(TObject *Sender);
    void __fastcall N2Click(TObject *Sender);
    bool __fastcall GetDesktopWallpaper();
    void __fastcall ApplicationEvents1Deactivate(TObject *Sender);
    void __fastcall ApplicationEvents1Message(tagMSG &Msg, bool &Handled);
private:    // User declarations
    ifstream fin;
    FILE* textFile;
    FILE* ff; // FaultsFile!
    String fileName;
    String iniFileName;
    AnsiString ch;
    char buffer[100]; // Используется при заполнении LRight при запуске
    bool miniSized;
    int num; // Количество фраз
    int currentStr; // Текущая фраза
    fpos_t pos; // Текущая позиция
    TIniFile *iniFile;
    short speed;
    String templStr; // Для режима паузы
    String temprStr;
    int lrTop;
    char second;
    char minute;
    AnsiString secStr, minStr;
    short rightPresses;
    short wrongPresses;
    TColor color;
    AnsiString progressFileName;
    std::map<wchar_t,int>::iterator i;
    bool paused;
public:     // User declarations
    TStringList *strListProgress;
    DynamicArray<String> dateStrArray;
    DynamicArray<short> speedArray;
    DynamicArray<float> faultArray;
    DynamicArray<String> timeStrArray;
    std::map <wchar_t, int> mapFaults;
 
    TTime timePassed;
    TTime sessionTime;
 
    __fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif

        
void __fastcall TMainForm::ApplicationEvents1Message(tagMSG &Msg,bool &Handled)
{
      if (Msg.wParam == 0) // 
      {
       ShowMessage("ENTER"); // Наше действие
      }

void __fastcall TMainForm::ApplicationEvents1Message(tagMSG &Msg,bool &Handled)
{
        //Сюда программа попадает бесконечно много раз
    if (Msg.message == WM_HOTKEY)
    {
        ShowMessage("OnMessage ok!");   // До этой строки не доходит!!!
        if (Msg.wParam == 0)
        {
             ShowMessage("ENTER"); // Наше действие
        }
 
    }
}

    if (Msg.message == WM_HOTKEY)

void __fastcall TMainForm::SetMinimalSize()
{
        //MainForm->Visible = false;
 
        MainForm->Menu = 0;
        Image1->Visible = false;
 
        MainForm->Width = 600;
        MainForm->Height = 100;
        MainForm->Left = ((Screen->Width)/2) - 300;
        MainForm->Top = Screen->Height- MainForm->Height - menuRect.Height();
 
        TextPanel->Width = 564;
        TextPanel->Height = 40;
        TextPanel->Top = 10;
        TextPanel->Left = 10;
 
        lRight->Font->Size = 16;
        lRight->Height = 25;
        lRight->Width = 250;
        lRight->Top = 7;
        lRight->Left = 300;
        lLeft->Font->Size = 16;
        lLeft->Height = 25;
        lLeft->Width = 250;
        lLeft->Top = 7;
        lLeft->Left = lRight->Left - lLeft->Width;
 
        PnlTime->Hide();
        PnlTime->Left = MainForm->Width - PnlTime->Width - 20;
        PnlTime->Top = 2;
 
        LabelSpeed->Hide();
        LabelPercent->Hide();
 
        MainForm->FormStyle = fsStayOnTop;
 
        //MainForm->Visible = true;
        miniSized = true;
}

if (Msg.message == W M_HOTKEY)