될른지 모르지만 아래와 같이 해보세요,
SetStretchBltMode( Image1->Canvas->handle,HALFTONE);
Image1->Canvas->Draw(0,0,bmp2);

happymin 님이 쓰신 글 :
: SetStretchBltMode( ??,HALFTONE);
: 대출 소스를 아래와 같이 주요 부분만 올립니다.
: 어디에다 넣어야 될지 모르겠습니다.
:
: bmp2->Canvas->StretchDraw(Arect,Bitmap1);
: 하기전에
: SetStretchBltMode( bmp2->Canvas->handle,HALFTONE);
: 호출했습니다만 이미지에 변함이 없습니다.
:
:

:  TJPEGImage  *jpg = new TJPEGImage();
:  jpg->LoadFromFile( p_asImgPath );
: 
:    Graphics::TBitmap *Bitmap1 = new Graphics::TBitmap();
:    Bitmap1->Assign(jpg);
:    
:    Graphics::TBitmap *bmp2;
:     bmp2 = new Graphics::TBitmap();
: 
:    ~~~ZOOM 비유을 구해서 W,H를 구하는 부분 스킵합니다.
:     TRect Arect;
:     Arect.Top =0;
:     Arect.Right  = W;
:     Arect.Bottom = H;
:     Arect.Left = 0;
: 
:     bmp2->Width  = W;
:     bmp2->Height = H;
: 
:     bmp2->Canvas->StretchDraw(Arect,Bitmap1);
:     Image1->Canvas->Draw(0,0,bmp2);
:     delete bmp2;
:    delete Bitmap1;
:    delete jpg;
:    jpg = NULL;
: