Изображение в Hint

THintWindow *HintWindow;
TJPEGImage *jpg = new TJPEGImage;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
HintWindow = new THintWindow(this);
jpg->LoadFromFile("view1.jpg");
}

void __fastcall TForm1::sCheckListBox1MouseMove(TObject *Sender, TShiftState Shift,
          int X, int Y)
{
                TRect Rect;
        TRect Rect1(0,30,420,200);
        TPoint pt = Mouse->CursorPos;
        Rect.Left = pt.x;
        Rect.Top = pt.y + 20;
        Rect.Right = Rect.Left + 420;
        Rect.Bottom = Rect.Top + 200;
    int Index = sCheckListBox1->ItemAtPos(Point(X, Y), true);
    if(Index > -1)
    {
        HintWindow->DoubleBuffered=true;
        HintWindow->Canvas->Font->Style = TFontStyles()<<fsBold;
        HintWindow->Canvas->StretchDraw(Rect1,jpg);
        HintWindow->ActivateHint(Rect, sCheckListBox1->Items->Strings[Index]);
       };
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Label1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
    TRect Rect;
    TPoint pt = Mouse->CursorPos;
    Rect.Left = pt.x;
    Rect.Top = pt.y + 20;
 
    Rect.Right = Rect.Left + 192;
    Rect.Bottom = Rect.Top + 108;
 
    HintWindow->DoubleBuffered = true;
    HintWindow->Canvas->Font->Style = TFontStyles() << fsBold;
 
    // - - - - - - - - - -
    Image1->Parent = HintWindow;
    Image1->Width = Image1->Picture->Bitmap->Width;
    Image1->Height = Image1->Picture->Bitmap->Height;
    Image1->Left = 10;
    Image1->Top = 65;
    // - - - - - - - - - -
 
    HintWindow->ActivateHint(Rect, Label1->Caption);
}
//---------------------------------------------------------------------------