Управлять отдельными элементами анимации через потоки

Shape1->Left = 50;
    Shape1->Top = 50;
    Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
    int t=-1;
    double a,b,c,d,x,y;
 
//
    a = 0;
    b = 0;
    c = b*cos(a);
    d = b*sin(a);
    x = c*t;
    y = (d*t)-(10*(t^2)/2);
//
    Shape1->Left =Shape1->Left+x;
    Shape1->Top = Shape1->Top+y;
//
    TPoint P,S;
    P.x = 0;
    P.y = 0;
    S = Shape1->ClientToScreen(P);
//
   /*   if (S.x >= Form2->Left+Form2->ClientWidth-Shape1->Width/2-12 || // если достигнута правая грань
//          S.x >= Form1->Left || // если достигнута левая грань
            S.y >= Image2->Top+Form2->ClientHeight-Shape1->Height/2-12) // || // если достигнута нижняя грань
//          S.y >= Form1->Top) // если достигнута верхняя грань
    {
        Timer1->Enabled = false;
 
    }