[[escafandra]]

No desistas, hombre...

Mira este ejemplo para poder empezar y seguir:

class TPrueba: public TWinControl
{
   private:
   TImage *Imagen;
   TPanel *Panel;
   public:
   __fastcall TPrueba(TComponent* Owner);
};

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  TPrueba *Prueba = new TPrueba(this);
  Prueba->Width = 200;
  Prueba->Height = 200;
  Prueba->Parent = this;
}
//---------------------------------------------------------------------------


__fastcall TPrueba::TPrueba(TComponent* Owner): TWinControl(Owner)
{
  Imagen = new TImage(this);
  Imagen->Parent = this;
  Imagen->Align = alClient;
  for(int y=0; y<200; y++) {
    if((y%2)==0){Imagen->Canvas->Pen->Color = clRed;}else{Imagen->Canvas->Pen->Color = clBlue;}
    Imagen->Canvas->Pen->Width = 1;
    Imagen->Canvas->MoveTo(0,y);
    Imagen->Canvas->LineTo(199,y);
  }

  Panel = new TPanel(this);
  Panel->Top = 0;
  Panel->Left = 0;
  Panel->Width = 20;
  Panel->Height = 20;
  Panel->Parent = this;
}

Saludos.