Перемещение кнопки

[CodeNOT]

Добрый день, пытаюсь сделать чтоб кнопка при нажатии на нее, перемещалась по форме, в случае если на нее нажали то она останавливается на том месте, где ее нажали, или если нажали на другую кнопку(которая должна запрыгать).
пока что я только динамически создал свои кнопки, а вот как сделать их перемещение и остановку, я не знаю(

TButton *Button[10];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{


for(int i=0;i<10;i++){
        Button[i]=new TButton(this);
        Button[i]->Parent=this;
        Button[i]->Caption=i;
        Button[i]->Top=i*40;
        Button[i]->Visible=true;
}
}

[CodeNOT]

TForm1 *ButtonMoveStatic;
TForm1 *ButtonJump;
void __fastcall TForm1::ButtonMoveStatic(TObject *Sender){//ñòàòè÷íàÿ
int i;
  for(i;i<10&&Button[i]->OnClick==&ButtonMoveStatic;i++);
   Button[i]->OnClick=&ButtonMoveStatic;
  ((TButton*)Sender)->OnClick=&ButtonJump;}

void __fastcall TForm1::ButtonJump(TObject *Sender){ //ïðûãàþùàÿ
 int coor=random(10);
 ((TButton*)Sender)->OnClick=&ButtonMoveStatic;
  Button[coor]->OnClick=&ButtonJump;
}

void __fastcall TForm1::Timer1Timer(TObject *Sender) //òàéìåð
{ int i;
  for(i;i<10&&Button[i]->OnClick==&ButtonMoveStatic;i++);
  Button[i]->Visible=true;
  Button[i]->Top=random (Form1->Height-100);
  Button[i]->Left=random (Form1->Width-100);
}

[UltimaBeaR]

Надо именно динамически кнопки создать?

[CodeNOT]

Да динамически

[UltimaBeaR]

С ооп дружишь? чувствую без него не обойтись тут, если не динамически то можно кое как через жопу сделать и без него

Тебе ведь нужно чтобы при нажатии на одну кнопку она останавливалась а остальные кнопки так и продолжались двигатся?

[CodeNOT]

в общем сделал, тупанул, не прописал что методы мои являются методами формы. может кому понадобиться код:
Это Unit1.cpp

void __fastcall TForm1::StaticBut(TObject *Sender){
int i;
  for(i=0;i<10&&Button[i]->OnClick==&StaticBut;i++);
   Button[i]->OnClick=&StaticBut;
  ((TButton*)Sender)->OnClick=&JumpingBut;}

void __fastcall TForm1::JumpingBut(TObject *Sender){
 int x=random(10);
 ((TButton*)Sender)->OnClick=&StaticBut;
  Button[x]->OnClick=&JumpingBut;
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{  randomize();
   int x=random(10);
   for(int i=0;i<10;i++) {
     Button[i]=new TButton(this);
     Button[i]->Parent=this;
     Button[i]->Caption="Кнопка:№"+IntToStr(i);
     Button[i]->Top=40*i;
     Button[i]->Visible=true;
     if(i!=x)
       Button[i]->OnClick=&StaticBut;
       else Button[i]->OnClick=&JumpingBut;
     }
   Form1->Show();
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{ int i;
  for(i=0;i<10&&Button[i]->OnClick==&StaticBut;i++);
  Button[i]->Visible=true;
  Button[i]->Top=random (Form1->Height-100);
  Button[i]->Left=random (Form1->Width-100);
}
//-

Это Unit1.h

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TTimer *Timer1;
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall Timer1Timer(TObject *Sender);
        void __fastcall StaticBut(TObject *Sender);
        void __fastcall JumpingBut(TObject *Sender);
private:	// User declarations
public:		// User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif