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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int a=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    if(RadioButton1->Checked)
    {
        Timer1->Interval==1 ;
    }
    else if(RadioButton2->Checked)
    {
        Timer1->Interval==10;
    }
    else if(RadioButton3->Checked)
    {
        Timer1->Interval==100;
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Timer1->Enabled=false;    
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    Timer1->Enabled=true;
    a=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
    Timer1->Enabled=true;
    a=1;    
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    Timer1->Enabled=true;
    a=2;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
    Timer1->Enabled=true;
    a=3;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
    Timer1->Enabled=true;
    a=4;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
    Timer1->Enabled=true;
    a=5;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
    Timer1->Enabled=true;
    a=6;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
    Timer1->Enabled=true;
    a=7;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{

    if(a==0)
    {
        if(Panel1->Left==8 || Panel1->Top==16)
        {
            Timer1->Enabled=false;
        }
        else
        {
            Panel1->Left --;
            Panel1->Top --;
        }
    }
    else if(a==1)
    {
        if(Panel1->Top==16)
        {
            Timer1->Enabled=false;
        }
        else
        {

            Panel1->Top --;
        }
    }
    else if(a==2)
    {
        if(Panel1->Left==608 || Panel1->Top==16)
        {
            Timer1->Enabled=false;
        }
        else
        {
            Panel1->Left ++;
            Panel1->Top --;
        }
    }
    else if(a==3)
    {
        if(Panel1->Left==608)
        {
            Timer1->Enabled=false;
        }
        else
        {
            Panel1->Left ++;

        }
    }
    else if(a==4)
    {
        if(Panel1->Left==608 || Panel1->Top==360)
        {
            Timer1->Enabled=false;
        }
        else
        {
            Panel1->Left ++;
            Panel1->Top ++;
        }
    }
    else if(a==5)
    {
        if(Panel1->Top==360)
        {
            Timer1->Enabled=false;
        }
        else
        {

            Panel1->Top ++;
        }
    }
    else if(a==6)
    {
        if(Panel1->Left==8 || Panel1->Top==360)
        {
            Timer1->Enabled=false;
        }
        else
        {
            Panel1->Left --;
            Panel1->Top ++;
        }
    }
    else if(a==7)
    {
        if(Panel1->Left==8)
        {
            Timer1->Enabled=false;
        }
        else
        {
            Panel1->Left --;

        }
    }
}
//---------------------------------------------------------------------------