как разместить фигуры по вертикале?

#include <vcl.h>
#pragma hdrstop
#include <Graphics.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
class A
{
        public:
        A(){};
        void Paint(int x, int y, int d, TImage *Image1)
                {
                Image1->Canvas->Rectangle(x,y,x+d,y+d);
                }
};
 
class B:public A
{
        public:
        B(){};
        void Draw(int x, int y,int d, TImage *Image1)
                {
                Image1->Canvas->Pen->Color = clBlue;
                Image1->Canvas->Brush->Color = clBlue;
                for (int i=0;i<3;i++)
                        {
                        Paint(x,y,d,Image1);
                        x=x+d;
                        y=y+d;
                        }
                }
};
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Image1->Canvas->Pen->Color = clBlack;
Image1->Canvas->Brush->Color = clWhite;
Image1->Canvas->FloodFill(0,0,clBlack,fsBorder);
A *Test=new A();
Test->Paint(StrToInt(Edit1->Text),StrToInt(Edit2->Text),StrToInt(Edit3->Text),Image1);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
B *Test=new B();
Test->Draw(0,0,StrToInt(Edit3->Text),Image1);
}
//----------------------------

        void Draw ( int x, int y, int d, TImage *Image1 )
        {
            Image1->Canvas->Pen->Color = clBlue;
            Image1->Canvas->Brush->Color = clBlue;
            for ( int i = 0; i < 3; i++ )
            {
                Paint ( x, y, d, Image1 );
                y += d + 10; // 10 - это отступ между квадратами
            }
        }