1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function Tmain.screenmachen(x,y,breite,hoehe):tbitmap;
var
  BMP: TBitmap;
  Desktop: TCanvas;
begin
  BMP := TBitmap.Create;
  Desktop := TCanvas.Create;
  Desktop.Handle := GetWindowDC(GetDesktopWindow);
  BMP.Width := breite;
  BMP.Height := hoehe;
  BMP.Canvas.CopyRect(Rect(0,0,bmp.width,bmp.Height ), Desktop,
      Rect(x,y,x+breite,y+hoehe));
  result:=bmp;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
var DeskCanvas: TCanvas;
    DeskRect: TRect;
begin
 DeskCanvas := TCanvas.Create;
 DeskCanvas.Handle := GetDC(0);
 // Ausschnitt festlegen
 DeskRect.Left := 200;
 DeskRect.Top := 200;
 DeskRect.Right := 400;
 DeskRect.Bottom := 400;
 // an Image1 übergeben
 Image1.Canvas.CopyRect(Image1.ClientRect, DeskCanvas, DeskRect); // Image1 ist auf der Form vorhanden
 DeskCanvas.Free;
end;