Программа для продажи билетов в кинозал

class TPlace : public TImage {
public:
    TPlace(TForm *Owner, int x, int y) : TImage(Owner){
        Left = x;
        Top = y;
        Canvas->Brush->Color = clBlue;
        Canvas->Rectangle(ClientRect);
    }
};

class TPlace : public TImage {
public:
    TPlace(TForm *Owner, int x, int y, int number) : TImage(Owner){
        Parent = Owner;
        Left = x;
        Top = y;
        Canvas->Brush->Color =
        (!Tag ? RGB(100,100,220) : Tag == 1 ? clYellow : clRed);
        Canvas->Rectangle(ClientRect);
        Canvas->Font->Size = 20;
        Canvas->TextOutW(35,35,IntToStr(number));
        Number = number;
        OnClick = plcClick;
    }
    void __fastcall plcClick(TObject *Sender)
    {
          ((TPlace*)Sender)->NextState();
    }
    NextState(){
        if (Tag == 2) Tag = 0;
        else ++Tag;
        Canvas->Brush->Color =
        (!Tag ? RGB(100,100,220) : Tag == 1 ? clYellow : clRed);
        Canvas->Rectangle(ClientRect);
        Canvas->TextOutW(35,35,IntToStr(Number));
    }
    int Number;
};

TPlace* plc = new TPlace(this, 100, 50, 23);

    int count = 0;
    for (int i = 0; i < ControlCount; i++)
    {
        if (Controls[i]->Name.SubString(0, 5) == "Image")
        {
            if (!Controls[i]->Tag) count++;
        }
    }

DataModule2->ADOTable8->Filtered=false;
String e;
DataModule2->ADOTable8->Filtered=true;
e=Form5->Edit1->Text;
DataModule2->ADOTable8->IndexFieldNames="Ряд";
DataModule2->ADOTable8->Filter="Ряд='"+e+"'";