Problema crear componente vcl

[NEG1414]

Buenas :

Estoy intentando crear mi primer componente VCL (VISUAL) lo derivo de la clase customControl (sera interactivo con el usuario)
El caso es que lo "creo" logrando que me aparezca en la paleta Standard el icono correspondiente. se supone que al anadirlo en un form en principio deberia de aparecer un rectangulo (de 100x150) con borde "ES SOLO UNA PRUEBA " pero na de na.

os dejo el codigo del componente haber si me podeis ayudar

#ifndef ComponenteH
#define ComponenteH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <Forms.hpp>
#include <StdCtrls.hpp>


//---------------------------------------------------------------------------
class PACKAGE TComponente : public TCustomControl
{

private:

TCanvas *FCanvas; //Para Dibujar

//Mensaje de Windows solicitando el Tamano del control
void __fastcall CNMeasureItem(TWMMeasureItem& Mensaje);

//Mensaje de Windows solicitando el tamano del control
void __fastcall CNDrawItem(TWMDrawItem& Mensaje);

BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(CN_MEASUREITEM,TWMMeasureItem,CNMeasureItem);
MESSAGE_HANDLER(CN_DRAWITEM,TWMDrawItem,CNDrawItem);
END_MESSAGE_MAP(TCustomControl);

protected:

//Parametros para la creacion del Compnente
void __fastcall Parametros (TCreateParams &Parametro);

//Cambio el estado del Componente
void __fastcall EstadComponent (bool ADefault);

public:
__fastcall TCeldaResultados(TComponent* Owner);


__published:

};
//---------------------------------------------------------------------------





#include <vcl.h>

#pragma hdrstop

#include "Componente.h"
#pragma package(smart_init)

static inline void ValidCtrCheck(TComponente *)
{
new TCeldaResultados(NULL);
}



//---------------------------------------------------------------------------
__fastcall TComponente ::TComponente (TComponent* Owner)
: TCustomControl(Owner)
{
FCanvas = new TCanvas; //Creamos el objeto camvas
}



//---------------------------------------------------------------------------
//Fijamos una serie de parametros antes de crear el componente

void __fastcall TComponente ::Parametros (TCreateParams &Parametro)
{
Parametro.Width =100;
Parametro.Height =150;
//Indicamos que el control va a ser definido por el rogramador
Parametro.Style = Parametro.Style | BS_OWNERDRAW;
}


//---------------------------------------------------------------------------
//Cada vez que Windows necesita dibujar el componente
//BS_OWNERDRAW envia este mensaje,solicitando las dimensiones

void __fastcall TComponente ::CNMeasureItem(TWMMeasureItem& Mensaje)
{
//Facilitamos la anchura y altura del control
Mensaje.MeasureItemStruct->itemWidth = Width;
Mensaje.MeasureItemStruct->itemHeight = Height;
}


//---------------------------------------------------------------------------
//Cada vez que halla que dibujar el control se llamara a este metodo

void __fastcall TComponente ::CNDrawItem(TWMDrawItem& Mensaje)
{

RECT Area;
char Texto[256];
strncpy(Texto,Caption.c_str(),255); //Copiamos el titulo del boton
Area = ClientRect; //Obtenemos el area de Trabajo

// Tomar el color normal del borde
FCanvas->Pen->Color = clWindowFrame;

//El Handle de FCanvas sera el que nos permita dibujar
FCanvas->Handle = Mensaje.DrawItemStruct->hDC;

//Anchura del Lapiz
FCanvas->Pen->Width =2;

//Estilo lapiz continuo
FCanvas->Pen->Style = psSolid;

//Relleno solido
FCanvas->Brush->Style = bsSolid;

//color
FCanvas->Brush->Color=clBtnFace;

//Dibujamos un contorno
FCanvas->Rectangle(10,10,20,20);

//Cuando Hallamos terminado Handle debe de ser cero
FCanvas->Handle = 0;
}



//---------------------------------------------------------------------------
//Al cambiar el estado del componente

void __fastcall TComponente ::EstadComponent (bool ADefault);
{
Refresh(); //Redibujar
}

//---------------------------------------------------------------------------
namespace Componente
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(TCeldaResultados)};
RegisterComponents("Standard", classes, 0);
}
}


Gracias