В D1 (по идее должно работать и в D2) попробуйте это:
Разместите на форме TPaintBox и TButton.
procedure TForm1.Button1Click(Sender: TObject); var DeskTop: TCanvas; begin DeskTop := TCanvas.Create; try with DeskTop do Handle := GetWindowDC(GetDesktopWindow); with PaintBox1.Canvas do CopyRect(Rect(0, 0, 200, 200), DeskTop, Rect(0, 0, 200, 200)) finally DeskTop.Free; end end;
Это скопирует верхнюю левую область рабочего стола в верхнюю левую область вашего TPaintBox.