Как при нажатии на RadioButtonGroup принудительно вывести подсказку над Edit

class TForm1 : public TForm
{
__published:
    // ...
private:
    THintWindow *hnt; // Раз
public:
    __fastcall TForm1(TComponent* Owner);
};
 
// ... 
 
void __fastcall TForm1::RadioGroup1Click(TObject *Sender) // при клике на радиогруппу
{
    hnt = new THintWindow(this);
    TRect r = ed->BoundsRect;
    TPoint p = ClientToScreen(r.TopLeft());
    r.Offset(p.X - r.Left, p.Y - r.Top - ed->Height);
    hnt->ActivateHint(r, ed->Hint); // показываем хинт над Edit-ом
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::edClick(TObject *Sender) // клик по Edit-у гасит хинт...
{
    hnt->ReleaseHandle();
    delete hnt;
}

void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
  TRadioGroup *pRG = static_cast<TRadioGroup*>( Sender );
  //Edit1->Hint = pRG->Items->Strings[pRG->ItemIndex];
  //Edit1->ShowHint = true;
 
  Application->Hint = pRG->Items->Strings[pRG->ItemIndex];
  Application->ShowHint = true;
  Application->ActivateHint( TPoint( Edit1->Left, Edit1->Top ) );
}

void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
    hnt = new THintWindow(this);
    TPoint p = ClientToScreen(TPoint(ed->Left,ed->Top));
    TRect te, r = hnt->CalcHintRect(160,ed->Hint,0);
    te=TRect(p.x,p.y+ed->Height,p.x+r.right,p.y+ed->Height+r.bottom);
    hnt->ActivateHint(te, ed->Hint);
}

    if(this->RadioGroup1->ItemIndex == 1)
    {
        Edit1->Visible  =   true;
        Edit1->SetFocus();
 
        TPoint P;
 
        P = ClientToScreen(Point( (Edit1->Left + Edit1->Width/2),  (Edit1->Top + Edit1->Height) ) );
        SetCursorPos(P.x, P.y);
    }
    else
    {
        Edit1->Visible  =   false;
        Edit1->Text     =   "";
    }