Как сделать, чтобы фокус не уходил с формы на ее компоненты?

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int pos=0;
int i, j, msec, total_sec, x;
float CpS;
UnicodeString S;
bool flag, flagt;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    Timer1->Enabled = false;
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::FormKeyPress(TObject *Sender, System::WideChar &Key)
{
     if (!flag) return;
     if (((char) Key) == RichEdit1->Text.c_str()[pos]) {
        UnicodeString s = Label2->Caption;
        s = s + UnicodeString("1");
        j++;
        Label2->Caption = s;
        Timer1->Enabled = true;
        RichEdit1->SelAttributes->Color=clRed;
     }
     else {UnicodeString s = Label2->Caption;
        s = s + UnicodeString("0");
        Label2->Caption = s;
        pos--;
        Timer1->Enabled = true;
    }
    pos++;
 }
 
//---------------------------------------------------------------------------
void __fastcall TForm1::N11Click(TObject *Sender)
{   flag = true;
    Label1->Caption = "Every";   // week, or even more often, I give a reception at my place. I am a very sociable and friendly person.
    MessageDlg("Внимание! После нажатия любой клавиши выполение теста начнётся!", mtInformation,
                 TMsgDlgButtons() << mbOK,0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N21Click(TObject *Sender)
{   flag = true;
    Label1->Caption = "Who doesn't love music? Whatever mood we have - bad or good, from time to time we turn on our favorite song.\n And it, in turn, either calms us, or on the contrary, makes us fall into melancholy.";
    MessageDlg("Внимание! После нажатия любой клавиши выполение теста начнётся!", mtInformation,
                 TMsgDlgButtons() << mbOK,0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N31Click(TObject *Sender)
{   flag = true;
     RichEdit1->Text= "I love animals, so I’ve got a lot of them. Someone’s hobby is collecting stamps, doing exercises, drawing or learning\n foreign languages. Animals are my hobby. I like to look after them, feed and just watch them. I believe that animals\n bring us happiness and positive emotions. This, in its turn, has a positive effect on our moral and psychological state.";
    MessageDlg("Внимание! После нажатия любой клавиши выполение теста начнётся!", mtInformation,
                 TMsgDlgButtons() << mbOK,0);    //RichEdit1->Text
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    AnsiString s, s2;
    int sec, min, ch;
    msec++;
    int ms = msec;
    sec = ms%60, ms /= 60;
    min = ms%60, ms /= 60;
    ch = ms%100, ms/=100;
    s2+=s.sprintf("%02d :", ch);
    s2+=s.sprintf("%02d :", min);
    s2+=s.sprintf("%02d", sec);
    Label3->Caption = s2;
    total_sec = msec;
    S = Label1->Caption;
    CpS=(1.0*j)/total_sec;
    if (j == S.Length()) {
        Timer1->Enabled = false;
        flag=false;
        MessageDlg("Поздравляем, вы успешно выполнили тест! Время выполнения: "+Label3->Caption+" Нажатий в секунду: "+FloatToStr(CpS), mtInformation,
                 TMsgDlgButtons() << mbOK,0);
        Label3->Caption = "00:00:00";
        //Label5->Caption = " ";
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N2Click(TObject *Sender)
{
   MessageDlg("Для начала работы выберите уровень сложности.", mtInformation,
                 TMsgDlgButtons() << mbOK,0);
}
//---------------------------------------------------------------------------

dynamic_cast<TForm*>(Parent)->DefocusControl(this, true);