Poly **Houses; 
 //--------------------------------------------------------------------------- 
void __fastcall CreatePoly() {
   Poly **Houses = new Poly*[ 12 ];
   Poly *Houses[ 0 ] = new Poly( 3 ,  10000 , 60000 ,  30000 , 50000 ,  10000 , 70000 );
   Houses[ 0 ]->IdentNumb =  1 ;
}
 //--------------------------------------------------------------------------- 
void __fastcall TForm1::Button1Click(TObject *Sender) {
   CreatePoly();
   Houses[ 0 ]->Rescale(Image1);
   Houses[ 0 ]->Draw(Image1);
}

void __fastcall CreatePoly() {
   Houses = new Poly*[ 12 ];