OnMouseDown и Refresh

void __fastcall TForm1::FormPaint(TObject *Sender)
{
    Form1->Canvas->Rectangle(TRect(0,0,100,100));
        ShowMessage("OnPaint");
}
//------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Form1->Refresh();
}

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  // что хочешь здесь делай, последующий рефреш не срабатывает
  Form1->Refresh();
}

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
 if (nrez) // если загружены данные
 {
  w = Form1->Width - 110;
  Form = Form1;
  chto_nagali_mouse = Button;
  X0 = X;
  Y0 = Y;
  Videlenie_AddMenu(); // функция, которая проверяет, какая кнопка нажалась и где
  Form1->Refresh();
 }
}

for (int k10 = 0; k10 < nrez; k10++) // проверка для всех точек
   {
    if ((l + int(gorizotr + 10*gorizotr*(wgs84_y[k10]-wgs84_min_y)/(wgs84_max_y-wgs84_min_y)) - razm_to4ki < X0) && (X0 < l + int(gorizotr + 10*gorizotr*(wgs84_y[k10]-wgs84_min_y)/(wgs84_max_y-wgs84_min_y)) + razm_to4ki) && (b - int(vertotr + 10*vertotr*(wgs84_x[k10]-wgs84_min_x)/(wgs84_max_x-wgs84_min_x)) - razm_to4ki < Y0) && (Y0 < b - int(vertotr + 10*vertotr*(wgs84_x[k10]-wgs84_min_x)/(wgs84_max_x-wgs84_min_x)) + razm_to4ki)) // если кнопку нажали над точкой
    {
     if (chto_nagali_mouse == mbLeft)
     {
      if (videlenie[k10] == 0) videlenie[k10] = 1;
      else videlenie[k10] = 0;
     }
    }
   }

for (int k5 = 0; k5 < nrez; k5++)
   {
     Form->Canvas->Pen->Color = clBlack;
     if (videlenie[k5] == 1) Form->Canvas->Pen->Color = clRed;
     Form->Canvas->Brush->Color = Form->Canvas->Pen->Color;
     Form->Canvas->Ellipse(l + gorizotr - razm_to4ki, b - vertotr - 10*vertotr*(wgs84_x[k3]-wgs84_min_x)/(wgs84_max_x-wgs84_min_x) - razm_to4ki, l + gorizotr + razm_to4ki, b - vertotr - 10*vertotr*(wgs84_x[k3]-wgs84_min_x)/(wgs84_max_x-wgs84_min_x) + razm_to4ki);
   }