как создать свой компонент

class TMyImage : public TImage
{
  __published:  // IDE-managed Components
  private:  // User declarations
  public:       // User declarations
    __fastcall TMyImage(TComponent* Owner);
};

__fastcall TMyImage::TMyImage(TComponent* Owner) : TImage(Owner)
{
  // необходимые действия, если они вам нужны...
}

TMyImage *MyImage = new TMyImage(this);
MyImage->Parent = this;

#ifndef ImgPersH
#define ImgPersH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class PACKAGE TImgPers : public TImage
{
private:
protected:
public:
        __fastcall TImgPers(TComponent* Owner);
__published:
};
//---------------------------------------------------------------------------
 
#endif

#include "ImgPers.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(TImgPers *)
{
        new TImgPers(NULL);
}
//---------------------------------------------------------------------------
__fastcall TImgPers::TImgPers(TComponent* Owner)
        : TImage(Owner)
{
}
//---------------------------------------------------------------------------
namespace Imgpers
{
        void __fastcall PACKAGE Register()
        {
                 TComponentClass classes[1] = {__classid(TImgPers)};
                 RegisterComponents("Samples", classes, 0);
        }
}
__fastcall TImgPers :: TImgPers(TComponent* Owner) : TImage(Owner)
{
        TImgPers *MyImage = new TImgPers(this);
        MyImage->Parent = this;
}