//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image2MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
  int ii,jj;
  for(ii=X-10;ii<X+10;ii++)
    for(jj=Y-10;jj<Y+10;jj++)
    Image2->Canvas->Pixels[ii][jj]=
      Image1->Canvas->Pixels[ii][jj];
}
//---------------------------------------------------------------------------