const
  x = 225;
  y = 132;
  w = 102;
  h = 41;
var
  rc: TRect;
  bmp: TBitmap;
  dc: HDC;
  wnd: HWND;
begin
  bmp := TBitmap.Create;
  bmp.Width := w;
  bmp.Height := h;
  wnd := GetForegroundWindow;
  dc := GetDC(wnd);
  BitBlt(bmp.Canvas.Handle, 0, 0, w, h, dc, x, y, SRCCOPY);
  ReleaseDC(wnd, dc);
  bmp.SaveToFile('screen.bmp');
  bmp.Free;
end;