//-------------------------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
x1=X;y1=Y; //globales para capturar las coordenadas del click
}
//-------------------------------------------------------------------------------------------
void __fastcall TForm1::FormClick(TObject *Sender)
{
if(x1>9&&x1<99)
if(y1>9&&y1<99)
{
Form1->Canvas->Brush->Color=clTeal;
Form1->Canvas->Polygon(Pt, 4); //algo asi
}
}