Delphi - Image

Hola!! Espero me ayuden, como puedo hacerle para que se imprima la pantalla y lo ponga en un Image??? Gracias :)

Sacado del Trucomania (www.q3.nu)

procedure TForm1.Button1Click(Sender: TObject);
var
DeskTop : TCanvas ;
begin
DeskTop := TCanvas.Create ;
try
with DeskTop do
Handle := GetWindowDC (GetDesktopWindow) ;

with Image1.Canvas do
CopyRect (Rect (0, 0, 200, 200),
DeskTop,
Rect (0, 0, 200, 200))
finally
DeskTop.Free
end
end;