Graphics::TBitmap* inBitmap = new Graphics::TBitmap();
inBitmap->PixelFormat = pf24bit;
inBitmap->Width = 640;
inBitmap->Height = 480;
inBitmap->LoadFromFile("PHOTO.BMP");
Graphics::TBitmap* outBitmap = new Graphics::TBitmap();
outBitmap->PixelFormat = pf24bit;
outBitmap->Width = CURRENT.Width;
outBitmap->Height = CURRENT.Height;
outBitmap->Palette = inBitmap->Palette;
outBitmap->Canvas->CopyMode = cmSrcCopy;
TRect Dest_Rect (0,0,CURRENT.Width,CURRENT.Height);
TRect Source_Rect (CURRENT.Left*2,
CURRENT.Top*2,
(CURRENT.Left + CURRENT.Width)*2,
(CURRENT.Top + CURRENT.Height)*2);
outBitmap->Canvas->CopyRect(Dest_Rect,inBitmap->Canvas,Source_Rect);
outBitmap->SaveToFile("TMP.BMP");
Image3->Stretch = true;
Image3->Transparent = true;
Image3->Width = CURRENT.Width;
Image3->Height = CURRENT.Height;
Image3->Picture->LoadFromFile("TMP.BMP");
delete outBitmap;
delete inBitmap;