var
DCDesk: HDC;
begin
DCDesk:=GetWindowDC(GetDesktopWindow);
BitBlt(image1.Canvas.Handle, 0,0, screen.Height,Screen.Width,DCDesk, 0, 0,SRCCOPY);
ReleaseDC(GetDesktopWindow, DCDesk);
image2.Canvas.CopyRect(rect(477,278,493,296),image1.Canvas,rect(0,0,16,18));
end;