void __fastcall TForm1::OpenImage1Click(TObject *Sender)
{
    OpenPictureDialog1->Execute();
 resim->LoadFromFile(OpenPictureDialog1->FileName);

 Canvas->Draw(20,20,resim);
}//-----------------------------------------------------------------resmi alıp ekranda gösteriyoruz.
void __fastcall TForm1::Method12Click(TObject *Sender)
{
byte *ptr;
  for(int i=0;i<resim->Height;i++){
  ptr=(Byte*)resim->ScanLine[i];
  for(int j=0;j<resim->Width;j++){
  ptr[3*j]=(ptr[3*j]+ptr[3*j+1]+ptr[3*j+2])/3;
  ptr[3*j+1]=ptr[3*j];
  ptr[3*j+2]=ptr[3*j];
  }}
}//-----------------------------------------------------------------bu fonksiyonda resmi Gray'e çevirir.