Обработка .bmp изображений

    if (!OpenDialog1->Execute()) return;
 
    Image1->Picture->Bitmap->LoadFromFile(OpenDialog1->FileName);
 
    int n[256];
    memset(n, 0, sizeof(n));
 
    for (int y = 0; y < Image1->Picture->Bitmap->Height; y++)
    {
        Byte *p = (Byte *)Image1->Picture->Bitmap->ScanLine[y];
        for (int x = 0; x < Image1->Picture->Bitmap->Width; x++)
        {
            n[p[x]]++;
        }
    }
 
    Chart1->Series[0]->Clear();
 
    for (int i = 0; i < 256; i++)
    {
        Chart1->Series[0]->AddXY(i, n[i]);
    }

    int M = 0;
    for (int y = 0; y < Image1->Picture->Bitmap->Height; y++)
    {
        Byte *p = (Byte *)Image1->Picture->Bitmap->ScanLine[y];
        for (int x = 0; x < Image1->Picture->Bitmap->Width; x++)
        {
            M += p[x];
        }
    }
    M /= Image1->Picture->Bitmap->Width * Image1->Picture->Bitmap->Height;

    int D = 0;
    for (int y = 0; y < Image1->Picture->Bitmap->Height; y++)
    {
        Byte *p = (Byte *)Image1->Picture->Bitmap->ScanLine[y];
        for (int x = 0; x < Image1->Picture->Bitmap->Width; x++)
        {
            int d = M - p[x];
            D += d * d;
        }
    }
    D /= Image1->Picture->Bitmap->Width * Image1->Picture->Bitmap->Height;

    FILE *f = fopen("xxx.txt", "w");
    for (int y = 0; y < Image1->Picture->Bitmap->Height; y++)
    {
        Byte *p = (Byte *)Image1->Picture->Bitmap->ScanLine[y];
        for (int x = 0; x < Image1->Picture->Bitmap->Width; x++)
        {
            fprintf(f, "%i\n", (int)p[x]);
        }
    }
    fclose(f);