Сброс фокуса с элементов управления

void __fastcall TForm1::Panel1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
flag = true; // Взводим флаг если мышь навелась на панель
}
//------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if( (X>Panel1->Width+Panel1->Left  || X<Panel1->Left || // Снаружи формы
     Y>Panel1->Height+Panel1->Top  || Y<Panel1->Top)
     && flag)
   {
   flag = false; // Сбросить флаг
   Edit1->SetFocus(); // Произвести необходимое действие
   }
}

((TPanel*)Sender)->Name

void __fastcall TForm1::FormClick(TObject *Sender)
{
Form1->Focused();
ShowMessage((int)Form1->Focused());
}

Panel1->SetFocus();
Panel1->Enabled = false;
Panel1->Enabled = true;
ShowMessage((int)Form1->Focused()); // Выдаст единичку

Form1->DefocusControl(TrackBar1, 0);

this->SetFocus();
this->DefocusControl(this, 0);

void __fastcall TForm1::FormMouseWheel(TObject *Sender, TShiftState Shift,
      int WheelDelta, TPoint &MousePos, bool &Handled)
{
if(MousePos.x > Form1->Left + Form1->TrackBar1->Left &&
   MousePos.x < Form1->Left + Form1->TrackBar1->Left + Form1->TrackBar1->Width &&
   MousePos.y > Form1->Top  + Form1->TrackBar1->Top &&
   MousePos.y < Form1->Top  + Form1->TrackBar1->Top + Form1->TrackBar1->Height)
   {
   this->TrackBar1->SetFocus();
   Edit2->Text = "Inside";
   }
 else
   {
   this->DefocusControl(this, 0);
   Edit2->Text = "Outside";
   }
}

void __fastcall TMainForm::FormMouseEnter(TObject *Sender)
{
    this->SetFocus();
    this->DefocusControl(this, 0);
    flagMouseInClient = true;
}
 
void __fastcall TMainForm::FormMouseLeave(TObject *Sender)
{
    flagMouseInClient = false;
}
 
void __fastcall TMainForm::FormMouseWheelUp(TObject *Sender, TShiftState Shift, TPoint &MousePos,
          bool &Handled)
{
    if (!flagMouseInClient) return;
 
       // далее - всякий программный код
}
 
void __fastcall TMainForm::FormMouseWheelDown(TObject *Sender, TShiftState Shift, TPoint &MousePos,
          bool &Handled)
{
    if (!flagMouseInClient) return;
 
    // далее - всякий программный код
}

#ifndef TB_HPP
#define TB_HPP
 
namespace MyNamespace
{
    class TTrackBar : public Comctrls::TTrackBar
    {
    public:
        inline __fastcall virtual TTrackBar(Classes::TComponent* AOwner) : Comctrls::TTrackBar(AOwner) {}
    protected:
        virtual void __fastcall WndProc(Winapi::Messages::TMessage &Message)
        {
            if(Message.Msg == CM_MOUSELEAVE) GetParentForm(this, True)->DefocusControl(this, 0);
            Comctrls::TTrackBar::WndProc(Message);
        }
    };
};
#define TTrackBar MyNamespace::TTrackBar
 
#endif