Перемещение формы через собственный класс

class MyHint
   {
    private:
     TForm* Hints;
     TImage* Img;
     void __fastcall MoveForm(TObject *Sender,
        TMouseButton Button, TShiftState Shift, int X, int Y)
     {
      ReleaseCapture();
      SendMessage(FindWindow("TForm", "Hints"), WM_NCLBUTTONDOWN, HTCAPTION, 0);
     }
    public:
     void CreateWindowHint(AnsiString picture)
     {
      Hints= new TForm(Form1);
      Hints->BorderStyle=bsNone;
      Hints->FormStyle=fsStayOnTop;
      Hints->Caption="Hints";
 
      Img= new TImage(Hints);
      Img->Parent=Hints;
      Img->Picture->LoadFromFile(picture);
      Img->AutoSize=true;
 
      Hints->Width= Img->Width;
      Hints->Height=Img->Height;
 
      Img->OnMouseDown= MoveForm;
 
      Hints->Show();
     }
   };

MyHint ShowHint;
 ShowHint.CreateWindowHint("pic\\1.jpg");