A desktopra (ami a monitorodon van) teszünk képet a lenti példával

procedure TForm1.Button1Click(Sender: TObject);
var
dc:HDC;
begin
dc:=GetDc(0);
bitblt(dc,0,0,width,height,image1.Canvas.Handle,0,0,srccopy);
end;

Megjegyzés:
A desktop, amit a windows használ közvetlen grafikus felületként, erre raktam rá az image1 képét.