Как скрыть моргающую каретку в поле Edit

HideCaret(Edit1->Handle)); // прячем

Edit1->Enabled = 0;

Edit1->Color=clRed;
Edit2->Color=clYellow;
Edit3->Color=(TColor)0x0000ff77;
Edit1->Enabled=0;
Edit2->Enabled=0;
Edit3->Enabled=0;

struct TUMHideCaret
{
    UINT msg;
    TWinControl *control;
};
 
namespace Edit_NoCaret
{
    class TEdit : public Vcl::Stdctrls::TEdit
    {
    protected:
        DYNAMIC void __fastcall DoEnter()
        {
            ::PostMessage(Parent->Handle, WM_USER + 101, WPARAM(this), 0L);
        }
    };
};
#define TEdit Edit_NoCaret::TEdit
 
// дальше твой класс формы, с небольшой корректировкой
class TForm1 : public TForm
// ...
private:    // User declarations
    MESSAGE void __fastcall UMHideCaret(TUMHideCaret &msg)
    {
        ::HideCaret(msg.control->Handle);
    }
 
    BEGIN_MESSAGE_MAP
        MESSAGE_HANDLER(WM_USER + 101, TUMHideCaret, UMHideCaret);
    END_MESSAGE_MAP(Vcl::Forms::TForm)
// ...

Timer1->Interval=10;

Button1->SetFocus();

void __fastcall TForm1::ApplicationEvents1Activate(TObject *Sender)
{
    ::PostMessage(Handle, WM_USER + 101, WPARAM(Edit1), 0L);
}