Т.С.П.П / Махинации с ТСПП / Махинации с ТСПП / ТПСПП / PR_7 / SHELL / SHELL

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

#include <vcl.h>
#pragma hdrstop

#include "SHELL.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 for(int pos=0;pos<17;pos++)
 {
  switch (pos)
  {
   case 0:
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=60;  Form1->Image5->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=70;  Form1->Image5->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=80;  Form1->Image5->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=90;  Form1->Image5->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=113;  Form1->Image5->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=140;  Form1->Image5->Top=140;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Left=110;  Form1->Image5->Left=440;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Left=220;  Form1->Image5->Left=330;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Left=330;  Form1->Image5->Left=220;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Left=454;  Form1->Image5->Left=14;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=113;  Form1->Image5->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=90;  Form1->Image5->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=80;  Form1->Image5->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=70;  Form1->Image5->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=60;  Form1->Image5->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=40;  Form1->Image5->Top=40;
    break;

    case 1:
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=60;  Form1->Image6->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=70;  Form1->Image6->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=80;  Form1->Image6->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=90;  Form1->Image6->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=113;  Form1->Image6->Top=113;
    Sleep((unsigned long)10); Application->ProcessMessages();Form1->Image2->Top=140;  Form1->Image6->Top=140;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=113;  Form1->Image6->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=90;  Form1->Image6->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=80;  Form1->Image6->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=70;  Form1->Image6->Top=70;
    Sleep((unsigned long)10); Application->ProcessMessages();Form1->Image2->Top=60;  Form1->Image6->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=40;  Form1->Image6->Top=40;
    break;

    case 2:
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=60;  Form1->Image7->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=70;  Form1->Image7->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=80;  Form1->Image7->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=90;  Form1->Image7->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=113;  Form1->Image7->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=140;  Form1->Image7->Top=140;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Left=260;  Form1->Image7->Left=660;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Left=360;  Form1->Image7->Left=560;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Left=460;  Form1->Image7->Left=460;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Left=674;  Form1->Image7->Left=234;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=113;  Form1->Image7->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=90;  Form1->Image7->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=80;  Form1->Image7->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=70;  Form1->Image7->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=60;  Form1->Image7->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=40;  Form1->Image7->Top=40;
    break;

    case 3:
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image4->Top=60;  Form1->Image8->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image4->Top=70;  Form1->Image8->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image4->Top=80;  Form1->Image8->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image4->Top=90;  Form1->Image8->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image4->Top=113;  Form1->Image8->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image4->Top=140;  Form1->Image8->Top=140;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image4->Top=113;  Form1->Image8->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image4->Top=90;  Form1->Image8->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image4->Top=80;  Form1->Image8->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image4->Top=70;  Form1->Image8->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image4->Top=60;  Form1->Image8->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image4->Top=40;  Form1->Image8->Top=40;
    break;

    case 4:
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=60;  Form1->Image7->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=70;  Form1->Image7->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=80;  Form1->Image7->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=90;  Form1->Image7->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=113;  Form1->Image7->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=140;  Form1->Image7->Top=140;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Left=60;  Form1->Image7->Left=200;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Left=160;  Form1->Image7->Left=160;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Left=200;  Form1->Image7->Left=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Left=234;  Form1->Image7->Left=14;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=113;  Form1->Image7->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=90;  Form1->Image7->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=80;  Form1->Image7->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=70;  Form1->Image7->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=60;  Form1->Image7->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=40;  Form1->Image7->Top=40;
    break;

    case 5:
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=60;  Form1->Image4->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=70;  Form1->Image4->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=80;  Form1->Image4->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=90;  Form1->Image4->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=113;  Form1->Image4->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=140;  Form1->Image4->Top=140;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Left=160;  Form1->Image4->Left=300;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Left=260;  Form1->Image4->Left=260;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Left=300;  Form1->Image4->Left=160;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Left=344;  Form1->Image4->Left=124;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=113;  Form1->Image4->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=90;  Form1->Image4->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=80;  Form1->Image4->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=70;  Form1->Image4->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=60;  Form1->Image4->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=40;  Form1->Image4->Top=40;
    break;

    case 6:
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=60;  Form1->Image1->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=70;  Form1->Image1->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=80;  Form1->Image1->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=90;  Form1->Image1->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=113;  Form1->Image1->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=140;  Form1->Image1->Top=140;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=113;  Form1->Image1->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=90;  Form1->Image1->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=80;  Form1->Image1->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=70;  Form1->Image1->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=60;  Form1->Image1->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=40;  Form1->Image1->Top=40;
    break;

    case 7:
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=60;  Form1->Image6->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=70;  Form1->Image6->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=80;  Form1->Image6->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=90;  Form1->Image6->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=113;  Form1->Image6->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=140;  Form1->Image6->Top=140;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=113;  Form1->Image6->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=90;  Form1->Image6->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=80;  Form1->Image6->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=70;  Form1->Image6->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=60;  Form1->Image6->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=40;  Form1->Image6->Top=40;
    break;

    case 8:
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=60;  Form1->Image3->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=70;  Form1->Image3->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=80;  Form1->Image3->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=90;  Form1->Image3->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=113;  Form1->Image3->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=140;  Form1->Image3->Top=140;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Left=600;  Form1->Image3->Left=700;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Left=560;  Form1->Image3->Left=560;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Left=700;  Form1->Image3->Left=600;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Left=674;  Form1->Image3->Left=454;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=113;  Form1->Image3->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=90;  Form1->Image3->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=80;  Form1->Image3->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=70;  Form1->Image3->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=60;  Form1->Image3->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image1->Top=40;  Form1->Image3->Top=40;
    break;

    case 9:
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=60;  Form1->Image8->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=70;  Form1->Image8->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=80;  Form1->Image8->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=90;  Form1->Image8->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=113;  Form1->Image8->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=140;  Form1->Image8->Top=140;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=113;  Form1->Image8->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=90;  Form1->Image8->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=80;  Form1->Image8->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=70;  Form1->Image8->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=60;  Form1->Image8->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=40;  Form1->Image8->Top=40;
    break;

    case 10:
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=60;  Form1->Image4->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=70;  Form1->Image4->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=80;  Form1->Image4->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=90;  Form1->Image4->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=113;  Form1->Image4->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=140;  Form1->Image4->Top=140;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Left=40;  Form1->Image4->Left=140;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Left=90;  Form1->Image4->Left=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Left=140;  Form1->Image4->Left=40;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Left=124;  Form1->Image4->Left=14;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=113;  Form1->Image4->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=90;  Form1->Image4->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=80;  Form1->Image4->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=70;  Form1->Image4->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=60;  Form1->Image4->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=40;  Form1->Image4->Top=40;
    break;

    case 11:
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=60;  Form1->Image5->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=70;  Form1->Image5->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=80;  Form1->Image5->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=90;  Form1->Image5->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=113;  Form1->Image5->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=140;  Form1->Image5->Top=140;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=113;  Form1->Image5->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=90;  Form1->Image5->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=80;  Form1->Image5->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=70;  Form1->Image5->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=60;  Form1->Image5->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image7->Top=40;  Form1->Image5->Top=40;
    break;

    case 12:
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=60;  Form1->Image2->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=70;  Form1->Image2->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=80;  Form1->Image2->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=90;  Form1->Image2->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=113;  Form1->Image2->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=140;  Form1->Image2->Top=140;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=113;  Form1->Image2->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=90;  Form1->Image2->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=80;  Form1->Image2->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=70;  Form1->Image2->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=60;  Form1->Image2->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image5->Top=40;  Form1->Image2->Top=40;
    break;

    case 13:
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=60;  Form1->Image3->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=70;  Form1->Image3->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=80;  Form1->Image3->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=90;  Form1->Image3->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=113;  Form1->Image3->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=140;  Form1->Image3->Top=140;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=113;  Form1->Image3->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=90;  Form1->Image3->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=80;  Form1->Image3->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=70;  Form1->Image3->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=60;  Form1->Image3->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image2->Top=40;  Form1->Image3->Top=40;
    break;

    case 14:
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=60;  Form1->Image6->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=70;  Form1->Image6->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=80;  Form1->Image6->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=90;  Form1->Image6->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=113;  Form1->Image6->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=140;  Form1->Image6->Top=140;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=113;  Form1->Image6->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=90;  Form1->Image6->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=80;  Form1->Image6->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=70;  Form1->Image6->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=60;  Form1->Image6->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image3->Top=40;  Form1->Image6->Top=40;
    break;

    case 15:
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=60;  Form1->Image1->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=70;  Form1->Image1->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=80;  Form1->Image1->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=90;  Form1->Image1->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=113;  Form1->Image1->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=140;  Form1->Image1->Top=140;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Left=590;  Form1->Image1->Left=660;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Left=700;  Form1->Image1->Left=700;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Left=660;  Form1->Image1->Left=590;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Left=674;  Form1->Image1->Left=564;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=113;  Form1->Image1->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=90;  Form1->Image1->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=80;  Form1->Image1->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=70;  Form1->Image1->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=60;  Form1->Image1->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=40;  Form1->Image1->Top=40;
    break;

    case 16:
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=60;  Form1->Image8->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=70;  Form1->Image8->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=80;  Form1->Image8->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=90;  Form1->Image8->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=113;  Form1->Image8->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=140;  Form1->Image8->Top=140;

    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=113;  Form1->Image8->Top=113;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=90;  Form1->Image8->Top=90;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=80;  Form1->Image8->Top=80;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=70;  Form1->Image8->Top=70;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=60;  Form1->Image8->Top=60;
    Sleep((unsigned long)100); Application->ProcessMessages();Form1->Image6->Top=40;  Form1->Image8->Top=40;
    break;
  }

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