Как организовать автовыделение содержимого TEdit при получении фокуса от мыши?

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    Timer1->Interval = 50;
    Timer1->Enabled = false;
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    Timer1->Enabled = false;
    if(Edit1->Focused())  Edit1->SelectAll();
 
}
void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
    Timer1->Enabled = true;
}

FAlignment  = taRightJustify;   // Бесполезная строчка

Edit1->Alignment = taRightJustify;

void __fastcall TForm1::FormShow(TObject *Sender)
{
    Edit1->Selected = true;
    Edit1->Alignment = taRightJustify;
    Edit2->Selected = true;
    Edit2->Alignment = taRightJustify;
    Edit3->Selected = true;
    Edit3->Alignment = taRightJustify;
}

        void __fastcall   SetAlignment(TAlignment Value)
        {
            const DWORD Alignments[3] = {ES_LEFT, ES_RIGHT, ES_CENTER};
            if(FAlignment != Value)
            {
                FAlignment = Value;
                ::SetWindowLongPtr(Handle, GWL_STYLE,
                    (::GetWindowLongPtr(Handle, GWL_STYLE) & ~(ES_LEFT | ES_CENTER | ES_RIGHT)) | Alignments[Value]);
                Repaint();
            }
        }