님 정말 감사합니다.
실제로 아래와 같이 코드를 작성하니까 잘됩니다.
제가 만들고 있는 프로그램에서는 다른 문제가 있어서 적용이 안된거 같습니다.

그런데 아래 코드를 보시면 아시겟지만 제가 jpg파일을 로드하여 (실제그림 사이즈가 크지만) 640x480
크기에 맞추려고 하는데요
a(TJPEGimage)에서는 a->Width=640같은 코드가 허용이 안되고요
p->Width=640; 은 실제로 그림 사이즈에 적용이 안되내여
그래서 아래코드를 돌리면 그림이 짤리는데 이문제를 어찌 해결 해야 하나요
void __fastcall TForm1::Button1Click(TObject *Sender)
{

    TJPEGImage*a=new TJPEGImage();
    a->LoadFromFile("c:\\1.jpg");



        Graphics::TBitmap*p=new Graphics::TBitmap();

    p->Width=640;
    p->Height=480;
    p->Assign(a);

    delete a;
int w=640;
int h=480;
int i,j;


  for(j=0;j<w;j+=2){
     for(i=0;i<w-j;i+=2){
        BitBlt(Canvas->Handle,w-i-1,0,2,h,p->Canvas->Handle,j,0,cmSrcCopy);
     }
     BitBlt(Canvas->Handle,j,0,2,h,p->Canvas->Handle,j,0,cmSrcCopy);
  }
  BitBlt(Canvas->Handle,0,0,w,h,p->Canvas->Handle,0,0,cmSrcCopy);


}
//---------------------------------------------------------------------------