Компоненты из Builder 6 в RAD Studio 2010

//---------------------------------------------------------------------------
 
#include <vcl.h>
 
#pragma hdrstop
 
#include "Light.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(TLight *)
{
        new TLight(NULL);
}
//---------------------------------------------------------------------------
__fastcall TLight::TLight(TComponent* Owner)
        : TGraphicControl(Owner)
{
        
}
//---------------------------------------------------------------------------
namespace Light
{
        void __fastcall PACKAGE Register()
        {
                 TComponentClass classes[1] = {__classid(TLight)};
                 RegisterComponents("Samples", classes, 0);
        }
}
//---------------------------------------------------------------------------
void __fastcall TLight::Paint(void)
{
        if (Visible)
        {
                TRect rect = Rect(0, 0, Width, Height);
                Canvas->Pen->Color = clBlack;
                Canvas->Brush->Color = clWhite;
                Canvas->FillRect(rect);
                if (value) Canvas->Brush->Color = clRed;
                Canvas->Ellipse(rect);
        }
}
//---------------------------------------------------------------------------
void __fastcall TLight::SetValue(bool newvalue)
{
        value = newvalue;
        Paint();
}