TColor DrawColor;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------    void __fastcall TForm1::GrayClick(TObject *Sender)
{
 Image1->Picture->LoadFromFile("0.bmp");
 Byte* ptr;
 for (int y=0;yPicture->Bitmap->Height;y  )
 {
  ptr=(Byte*)Image1->Picture->Bitmap->ScanLine[y];
  for (int x=0;xPicture->Bitmap->Width;x  )
  {
   int Gray=(ptr[x*3] ptr[x*3 1] ptr[x*3 2])/3;
   ptr[x*3]=Gray;
   ptr[x*3 1]=Gray;
   ptr[x*3 2]=Gray;
  }
 }
}
//---------------------------------------------------------------------------    void __fastcall TForm1::PenColorClick(TObject *Sender)
{
 if (ColorDialog1->Execute())
 {
  DrawColor=ColorDialog1->Color;
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 Image1->Canvas->Pixels[X][Y]=DrawColor;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Form1->DoubleBuffered=true;
}
//---------------------------------------------------------------------------