paproć afiniczna c++ buldier 6

witam
chce narysować paproć afiniczną w c++ buldier 6 dostałem fragmenty kodu jednak coś jest nie tak program się kompiluje ale paproć się nie rysuje
funkcja formpaint powinna narysować paproć w formie czy potrzebuje jakiś obiekt który ją wywołuje?

#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "Unit12.h"
#include "skala.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm12 *Form12;
//---------------------------------------------------------------------------
__fastcall TForm12::TForm12(TComponent* Owner)
        : TForm(Owner)
{
a[ 0] = 0.0;
a[ 1] = 0.85;
a[ 2] = 0.2;
a[ 3] = -0.15;
b[ 0] = 0.0;
b[ 1] = 0.04;
b[ 2] = -0.26;
b[ 3] = 0.28;
c[ 0] = 0.0;
c[ 1] = -0.04;
c[ 2] = 0.23;
c[ 3] = 0.26;
d[ 0] = 0.16,
d[ 1] = 0.85;
d[ 2] = 0.22;
d[ 3] = 0.24;
e[ 0] = 0.0;
e[ 1] = 0.0;
e[ 2] = 0.0;
e[ 3] = 0.0;
f[ 0] = 0.0;
f[ 1] = 1.6;
f[ 2] = 1.6;
f[ 3] = 0.44;
p[ 0] = 1;
p[ 1] = 79;
p[ 2] = 10;
p[ 3] = 10;
suma_amplitud = p[ 0] + p[ 1] + p[ 2] + p[ 3];

}
//---------------------------------------------------------------------------

 void __fastcall TForm12::FormPaint(TObject *Sender)
{
 Graphics::TColor kolory;
int nr; //numer aktywnego przekształcenia
int xe, ye; //współrzędne ekranowe
double x = 0, xx, y = 0; //współrzędne rzeczywiste
long t; //licznik iteracji
TSkalowanie skal( 0, 0, ClientWidth, ClientHeight, 0.5, 5.2, 15.0, 10.0);
for( t = 0; t < 1000000L; t++)
{
 nr = wybierz_przeksztalcenie();
 //obliczanie nowej pozycji punktu
 xx = x * a[ nr] + y * b[ nr] + e[ nr];
 y = x * c[ nr] + y * d[ nr] + f[ nr];
 x = xx;
skal.get_ekr_wsp( xe, ye, x, y); //wyliczenie pozycji ekranowej
 Canvas -> Pixels[ xe][ ye] = kolory[ nr];
}}

//----------------------------------------------------------------------------

int TForm12 :: wybierz_przeksztalcenie( void)
{
int nr, a = random( suma_amplitud);
if( a < p[ 0])
nr = 0;
else
if( a < (p[ 0] + p[ 1]))
nr = 1;
else
if( a < (p[ 0] + p[ 1] + p[ 2]))
nr = 2;
else
nr = 3;
return nr;
}

plik header

const TColor kolory [4]= {clRed, clBlue, clYellow, clGreen};
#ifndef Unit12H
#define Unit12H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm12 : public TForm
{
__published:	// IDE-managed Components
void __fastcall FormPaint(TObject *Sender);
private:	// User declarations
double a[ 4], b[ 4], c[ 4], d[ 4], e[ 4], f[ 4];
int p[ 4];
int wybierz_przeksztalcenie( void);
int suma_amplitud;

public:		// User declarations
        __fastcall TForm12(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm12 *Form12;
//---------------------------------------------------------------------------
#endif

ok działa nie ustawiłem eventu