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

void __fastcall TForm1::Button2Click(TObject *Sender)
{
for (int i = Button2->Top; i > Button1->Top; i--)
    {
    Button2->Top = i;
    }
for (int i = Button2->Left; i > Button1->Left; i--)
    {
    Button2->Left = i;
    }
}

#include <complex.h>
typedef complex<double>Complex;
 
void __fastcall MoveButton(TButton * Button,TPoint NewPosition, double HowLongMsec)
{
 
        Complex StartPoint=Complex(Button->Left,Button->Top);
        Complex EndPoint = Complex(NewPosition.x, NewPosition.y);
        Complex Vector = EndPoint-StartPoint;
        Vector/=HowLongMsec;
 
        for(int i=0;i<HowLongMsec;i++)
        {
 
                StartPoint+=Vector;
                Sleep(1);
                Complex NewPos=StartPoint+Vector;
                Button->Left=real(NewPos);
                Button->Top=imag(NewPos);
                Application->ProcessMessages();
        }
}

MoveButton(Button1,TPoint(600,20), 10000);