Как вывести полностью в Hint, выходящую за пределы компонента ComboBox, строку?

void __fastcall TMuztest::ComboBoxWidth(TComboBox *pCB)
  {
   int i, longs = 0;
   for(i=0;i<pCB->Items->Count;i++)
    if(longs<pCB->Canvas->TextWidth(pCB->Items->Strings[i]))
       longs = pCB->Canvas->TextWidth(pCB->Items->Strings[i]);
   pCB->Perform(CB_SETDROPPEDWIDTH, longs+6, 0);
  }

void __fastcall TForm1::AppEvnts_1ShowHint(AnsiString &HintStr,
      bool &CanShow, THintInfo &HintInfo)
{
    if (HintInfo.HintControl->ClassNameIs("TComboBox"))
    {
        if (Mouse->Capture)
        {
            CanShow = false;
            return;
        }
 
        TComboBox *cb = dynamic_cast<TComboBox *>(HintInfo.HintControl);
        if (cb->Canvas->TextWidth(cb->Text) < cb->ClientRect.Width() - 20)
        {
            CanShow = false;
            Application->HideHint();
            return;
        }
        CanShow = true;
        TPoint point = ClientToScreen(Point(cb->Left, cb->Top));
        HintInfo.ReshowTimeout = 150;
        HintStr = cb->Text;
        HintInfo.HintPos.x = point.x + 1;
        HintInfo.HintPos.y = point.y + 1;
        AppEvnts_1->CancelDispatch();
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::AppEvnts_1ShowHint(AnsiString &HintStr,
      bool &CanShow, THintInfo &HintInfo)
{
 if (HintInfo.HintControl->ClassNameIs("TComboBox")
    if (Canvas->TextWidth(ComboBox1->Text) > ComboBox1->ClientWidth)
 
         {
                HintStr = ComboBox1->Text;
                AppEvnts_1->CancelDispatch();
             
         }
}

void __fastcall TForm1::AppEvents_1ShowHint(AnsiString &HintStr,
      bool &CanShow, THintInfo &HintInfo)
{
 if (HintInfo.HintControl->ClassNameIs("TComboBox"))
    if (Canvas->TextWidth(ComboBox1->Text) > ComboBox1->ClientWidth)
 
         {
                HintStr = ComboBox1->Text;
                Application->HintHidePause = 20000;
                AppEvents_1->CancelDispatch();
 
  }
 
}

void __fastcall TForm1::ComboBoxWidth(TComboBox *pCB)
  {
   int i, longs = 0;
   for(i=0;i<pCB->Items->Count;i++)
    if(longs<pCB->Canvas->TextWidth(pCB->Items->Strings[i]))
       longs = pCB->Canvas->TextWidth(pCB->Items->Strings[i]);
   pCB->Perform(CB_SETDROPPEDWIDTH, longs+6, 0);
  }
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    ComboBoxWidth(ComboBox1);
}