Ошибка при создании дочернего компонента

// ---------------------------------------------------------------------------
 
#ifndef MyImageH
#define MyImageH
// ---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <ExtCtrls.hpp>
 
// ---------------------------------------------------------------------------
class PACKAGE TMyImage : public TImage {
private:
protected:
public:
    __fastcall TMyImage(TComponent* Owner);
 
    void __fastcall virtual Paint(void) {
        Canvas->Brush->Color = 0x00FF0000;
        Canvas->FillRect(Rect(Left, Top, Width, Height));
    }
 
__published:
};
// ---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
 
#include <vcl.h>
 
#pragma hdrstop
 
#include "MyImage.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//
 
static inline void ValidCtrCheck(TMyImage *)
{
    new TMyImage(NULL);
}
//---------------------------------------------------------------------------
__fastcall TMyImage::TMyImage(TComponent* Owner)
    : TImage(Owner)
{
}
//---------------------------------------------------------------------------
namespace Myimage
{
    void __fastcall PACKAGE Register()
    {
        TComponentClass classes[1] = {__classid(TMyImage)};
        RegisterComponents(L"MyPalette", classes, 0);
    }
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
class PACKAGE TMyImage : public TImage
{
private:
protected:
public:
 
   void __fastcall virtual Paint(void)
     {
      TImage::Paint();
 
      Canvas->Brush->Color = clBlue;
      Canvas->FillRect(ClientRect);
     }
 
    __fastcall TMyImage(TComponent* Owner);
__published:
};
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
this->MyImage1->Top= 10;
}
//---------------------------------------------------------------------------

    Parent = dynamic_cast<TWinControl*>(Owner);