Code:

// bool All, da li sa naslovnom linijom ili bez
// AHandle, da li prozor ili screen
// takodje proveri da li treba provera ako je All == true i AHandle == 0, ne znam sta bi se dogodilo
Graphics::TBitmap* ScreenCapture( bool All, HDC AHandle, int ALeft, int ATop, int AWidth, int AHeight )
{
   TRect r = Rect(ALeft, ATop, AWidth, AHeight);

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

   bmp->Width = r.Width();
   bmp->Height = r.Height();
   bmp->PixelFormat = pf32bit;

   HDC hdc;

   if ( All )
      hdc = ::GetWindowDC( AHandle );
   else
      hdc = ::GetDC( AHandle );
      
   ::BitBlt( bmp->Canvas->Handle, 0, 0, bmp->Width, bmp->Height, hdc, ALeft, ATop, SRCCOPY);
   ::ReleaseDC( AHandle, hdc );

   return bmp;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Image1->Picture->Bitmap->Assign( ScreenCapture( true, Form1->Handle, 10, 10, 100, 100 ) );
}

Code:

Graphics::TBitmap* ScreenCapture2( bool All, HDC AHandle, int ALeft, int ATop, int AWidth, int AHeight )
{
   TRect r1 = Rect( ALeft, ATop, AWidth, AHeight );

   Graphics::TBitmap *bmp = new Graphics::TBitmap();
   bmp->Width = r1.Width();
   bmp->Height = r1.Height();
   bmp->PixelFormat = pf32bit;

   TCanvas *ScreenCanvas = new TCanvas();

   try
   {
      if ( All )
         ScreenCanvas->Handle = ::GetWindowDC( AHandle );
      else
         ScreenCanvas->Handle = ::GetDC( AHandle );

       try
       {
           TRect r2 = Rect( 0, 0, bmp->Width, bmp->Height );
           bmp->Canvas->CopyRect( r2, ScreenCanvas, r1 );
       }
       __finally
       {
           ::ReleaseDC( AHandle, ScreenCanvas->Handle );
       }
   }
   __finally
   {
       delete ScreenCanvas;
   }
   return bmp;
}