Работа с изображениями

void __fastcall TForm1::Button1Click(TObject *Sender)
{ HDC hDc = GetDC(Handle);
    hDCCom = CreateCompatibleDC(hDc);
        LPTSTR szFileName = "1.bmp";
        HBITMAP hBitmap = (HBITMAP)LoadImage( NULL, szFileName, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE ); 
            SelectObject(hDCCom, hBitmap);
        if (hBitmap)
        {
    BitBlt(hDc, 0, 0, 480, 360, hDCCom, 0, 0, SRCCOPY);
 
        BITMAPINFO bi;
    bi.bmiHeader.biSize = sizeof(bi.bmiHeader);
    bi.bmiHeader.biWidth = 480;
    bi.bmiHeader.biHeight = 360;
    bi.bmiHeader.biPlanes = 1;
    bi.bmiHeader.biBitCount = 24;
    bi.bmiHeader.biCompression = BI_RGB;
    bi.bmiHeader.biSizeImage = 480 * 4 * 360;
    bi.bmiHeader.biClrUsed = 0;
    bi.bmiHeader.biClrImportant = 0;
 
    hBitmap = CreateDIBSection( hDCCom, &bi, DIB_RGB_COLORS, (void**) (&bitPointer), 0, 0);
    SelectObject(hDCCom, hBitmap);
    BitBlt(hDc, 480, 360, 480, 360, hDCCom, 0, 0, SRCCOPY);
          for(int i=0; i<800 * 4; i+=4)
    {
        Label1->Caption=Label3->Caption+" "+IntToStr((int)bitPointer[(1+i]);
        Label2->Caption=Label3->Caption+" "+IntToStr((int)bitPointer[i+1]);
        Label3->Caption=Label3->Caption+" "+IntToStr((int)bitPointer[i+2]);
    }
 
         }
         else
         Label1->Caption="0_0";
     }