Метод для удержания button мышкой

[Сергей089]

Здравствуйте. У меня на форме рисуется точка. И с помощью кода

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        switch (Key)
        {
                case 37: x--; break;
                case 38: y--; break;
                case 39: x++; break;
                case 40: y++; break;
        }
        Form1->Canvas->FillRect(Form1->Canvas->ClipRect);
        Form1->Canvas->MoveTo(x,y);
        Form1->Canvas->LineTo(x,y);
}

она двигается на форме при нажатии стрелок (нажать и держать). А как такое же проделать с Button, т.е. мышкой нажал и держишь Button, точка едет? Попробовал так

void __fastcall TForm1::Button1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        x++;
        Form1->Canvas->FillRect(Form1->Canvas->ClipRect);
        Form1->Canvas->MoveTo(x,y);
        Form1->Canvas->LineTo(x,y);
}

но не получилось. Приходится много клацать мышкой .

[Cpluser]

MouseDown and MouseUp пример

 
private void button3_MouseDown(object sender, MouseEventArgs e)
        {
            b = true;
                Thread t = new Thread(f);
                t.Start();
        
        }
        void f()
        {
            while (b)
            {
                Invoke(new MethodInvoker(delegate
                    {
                        progressBar1.Value++;
                        Thread.Sleep(1000);
                    }));
            }
        }

        private void button3_MouseUp(object sender, MouseEventArgs e)
        {
            Thread r = new Thread(w);
            r.Start();
        }
        void w()
        {
            b = false;
        }

[Сергей089]

Cpluser, нужно что-то подключить или объявить? А то у меня появляется [C++ Error] Unit1.cpp(66): E2451 Undefined symbol 'Thread'

[Cpluser]

using System.Threading;

[Сергей089]

А куда нужно вставить эту строчку?

[Сергей089]

Смысл в том, чтобы выполнять два действия одновременно?