void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if(OpenPictureDialog1->Execute())
  {
     Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
     Button2->Enabled=true;
     Button2->SetFocus();
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Graphics::TBitmap* myBitmap;
  myBitmap=new Graphics::TBitmap;
  myBitmap->Width=Image1->Width;
  myBitmap->Height=Image1->Height;
  int width,height;
  TRect myRect;
  for(int i=0;i<=40;i++)
  {
    myRect.Left=width/2-width*i/80;
    myRect.Top=height/2-height*i/80;
    myRect.Right=width-width/2+width*i/80;
    myRect.Bottom=height-height/2+height*i/80;
    myBitmap->Canvas->CopyRect(myRect,Image1->Canvas,myRect);
    Form1->Canvas->Draw(18,18,myBitmap);
    Sleep(30);
    Application->ProcessMessages();
  }
  delete myBitmap;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  Graphics::TBitmap* myBitmap;
  myBitmap=new Graphics::TBitmap;
  myBitmap->Width=Image1->Width;
  myBitmap->Height=Image1->Height;
  int width,height;
  TRect myRect;
  for(int i=0;i<=12;i++)
  {
    //
    myRect.Left=0;
    myRect.Top=0;
    myRect.Right=width;
    myRect.Bottom=height*i/24;
    myBitmap->Canvas->CopyRect(myRect,Image1->Canvas,myRect);
    Form1->Canvas->Draw(18,18,myBitmap);
    //
    myRect.Left=0;
    myRect.Top=0;
    myRect.Right=width;
    myRect.Bottom=height*i/24;
    myBitmap->Canvas->CopyRect(myRect,Image1->Canvas,myRect);
    Form1->Canvas->Draw(18,18,myBitmap);
    Application->ProcessMessages();
    Sleep(60);
  }
  delete myBitmap;  
}
//---------------------------------------------------------------------------