좀 느립니다만, 이 함수를 써보시죠..^^;
void __fastcall TfrmMain::ColorToGray(TPicture *Pic)
{
    Screen->Cursor = crHourGlass;
    Graphics::TBitmap* pBitmap = new Graphics::TBitmap();
    try{
        //convert to 8 bit format
        Graphics::TBitmap *obmp = Pic->Bitmap;
        pBitmap->PixelFormat = pf8bit;
        pBitmap->Width = obmp->Width;
        pBitmap->Height = obmp->Height;
        try{
            Byte* ptr;
            for(short y = 0; y < pBitmap->Height; y++){
                ptr = (Byte*)pBitmap->ScanLine[y];
                for(int x = 0; x < pBitmap->Width; x++){
                    ptr[x] =(short)((GetBValue(obmp->Canvas->Pixels[x][y])+ \
                    GetGValue(obmp->Canvas->Pixels[x][y])+ \
                    GetRValue(obmp->Canvas->Pixels[x][y]))/3);
                }
            }
            Pic->Assign(pBitmap);
        }catch(...){
            ShowMessage("변환중 에러가 발생했습니다.");
            btnResetClick(NULL);
        }
    }__finally {
        delete pBitmap;
        Screen->Cursor = crDefault;
    }
}

만해 님이 쓰신 글 :
: 안녕하세요 만해입니다.
:
: 요즘 알바꺼리로 워터 마킹을 하는데요
:
: (참 별난거 다 하네요 흐흐~ 지난번엔 암호화 하고 크~)
:
: Image에 BMP 파일을 로드 하는데요
:
: 이 로드된 데이타를 픽셀 단위로 읽어 들여서
:
: 가공을 해야 하는데
:
: 기본적인 데이타가 24비트 컬러라서
:
: 이걸 8비트 그레이 형식으로 바꿔야 하는데요
:
: 잘 안되네요
:
: 더 정확히 애기 드리면
:
: 0 <= TImage->Canvas->Pixels[x][y] <= 255 이렇게 읽을수 있는지?
:
: 아니면 RGB 데이타를 HSI나 HSV로 바꾼로 다시 RGB로 바꿀수 있는 방법이 있는지
:
: 흐흐 맨날 별난것만 물어 보네요~
:
: 별난 만해~
:
:       SImage->Picture->Bitmap->Monochrome = true;
:       SImage->Picture->Bitmap->PixelFormat = pf8bit;
:       SImage->Picture->LoadFromFile(OpenPictureDialog->FileName);
:
: 이런식으로 읽어 들이는데 제가 원하는데로 안되는군요
:
: 이리저리 뒤져 봐도 안 나오고 크크
:
: 아시는분 꼭 갈켜 주세요~ 꼭요~