С помощью каких компонентов лучше написать самую простую игру "Крестики-нолики"?

TForm1 *Form1;
bool xod=true;//очерёдность
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//Image 120*120
Image1->Canvas->MoveTo(40,0);  //разметка поля
Image1->Canvas->LineTo(40,120);
Image1->Canvas->MoveTo(80,0);
Image1->Canvas->LineTo(80,120);
Image1->Canvas->MoveTo(0,40);
Image1->Canvas->LineTo(120,40);
Image1->Canvas->MoveTo(0,80);
Image1->Canvas->LineTo(120,80);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
int x=(X/40)*40,y=(Y/40)*40;//координаты клетки
if (xod)
{
  Image1->Canvas->MoveTo(x,y); //рисуем крестик
  Image1->Canvas->LineTo(x+40,y+40);
  Image1->Canvas->MoveTo(x+40,y);
  Image1->Canvas->LineTo(x,y+40);
  xod=false;
}
else
{
 Image1->Canvas->Ellipse(x,y,x+40,y+40);//нолик
 xod=true;
}        
}