Создание компонента, изменяющего форму

#include <vcl.h>
#pragma hdrstop
 
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
  : TForm(Owner)
{
  m_pict = new TPicture;
  m_pict->LoadFromFile("øàáëîí.bmp");
}
 
__fastcall TForm4::~TForm4()
{
  delete m_pict;
}
 
//---------------------------------------------------------------------------
 
HRGN RegionFromPicture(TPicture *pict, TColor backcolor)
{
  HRGN resRgn = ::CreateRectRgn(0, 0, 0, 0); //Ðåçóëüòèðóþùèé ðåãèîí
  HRGN rgn;
  int x, y, xFirst;
  //Àíàëèçèðóåì êàæäóþ ñêàí-ëèíèþ ðèñóíêà (ïî ãîðèçîíòàëè)
  for (y = 0; y < pict->Height; y++)
  {
    x = 0;
    while (x < pict->Width)
    {
      if (pict->Bitmap->Canvas->Pixels[x][y] != backcolor)
      {
        xFirst = x;
        x++;
      
        while (x < pict->Width &&
               pict->Bitmap->Canvas->Pixels[x][y] != backcolor) x++;
 
        rgn = ::CreateRectRgn(xFirst, y, x-1, y+1);
        ::CombineRgn(resRgn, resRgn, rgn, RGN_OR);
        ::DeleteObject(rgn);
      }
      x++;
    }
  }
  return resRgn;
}
 
void __fastcall TForm4::FormCreate(TObject *Sender)
{
  ::SetWindowRgn( Handle, RegionFromPicture(m_pict, (TColor)RGB(255,255,255)), TRUE );
}
//---------------------------------------------------------------------------
void __fastcall TForm4::FormPaint(TObject *Sender)
{
 
  TRect wndRect;
  ::GetWindowRect(Handle, &wndRect);
  TPoint clientOrg(0, 0);
  clientOrg = ClientToScreen(clientOrg);
  int dx = clientOrg.x - wndRect.Left;
  int dy = clientOrg.y - wndRect.Top;
  this->Canvas->Draw(-dx, -dy, m_pict->Bitmap);
}