Jak połączyć własne klasy z TForm w Borland C++ Builder?

class kwadrat{
public:
int tx1,tx2,ty1,ty2;
};

kwadrat pierwszy;
kwadrat *p=&pierwszy;

p->tx1=10; //dziala
p->ty1=50;
p->tx2=10;
p->ty2=50;

   Edit1->Text=p->tx1; //dziala
   Edit2->Text=p->ty1;
   Edit3->Text=p->tx2;
   Edit4->Text=p->ty2;

Image1->Canvas->Rectangle(p->tx1,p->ty1,p->tx2,p->ty2);

// lista - wersja obiektowa

#include <iostream.h>
#include <string.h>
#include <conio.h>
#include <stdio.h>
#include <stdlib.h>

class item
{ public:
	char name[30];
	item *next;
};

class list
{
 private:
	item *head;
 public:
 	list(); // konstruktor
        list(list &l); // konstruktor kopiujacy
	~list(); // destruktor

	void dodaj(char *f);
 	void dodaj_na_koniec(char *f);
 	void usun(char *f);
        void wyszukaj(int x, char *f);
        int  wyszukaj(char *f);
        void wyswietl(void);
	list operator=(list l);
        list operator+(char *f);

        list operator-(char *f);

        void operator+=(char *f);

	void operator-=(char *f);


        void sortuj(void);
	void porzadek(char *f);

}; 

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
int tx1=0,tx2=0,ty1=0,ty2=0;
class kwadrat{
public:
int tx1,tx2,ty1,ty2;
};
TForm1 *Form1;
kwadrat pierwszy;
kwadrat *p=&pierwszy;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner){}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{Image1->Canvas->Rectangle(p->tx1,p->ty1,p->tx2,p->ty2);}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
p->tx1=10;
p->ty1=50;
p->tx2=10;
p->ty2=50;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
   Edit1->Text=p->tx1;
   Edit2->Text=p->ty1;
   Edit3->Text=p->tx2;
   Edit4->Text=p->ty2;
}
//---------------------------------------------------------------------------

Klasa(const Klasa &o) - kopiujący
Klasa& operator=(const Klasa &o) 
Klasa& opeartor+=(const Klasa &o) 
Klasa& operator-=(const Klasa &o)