Копирование изображения

[Superlotles]

Хочу сделать програмку, которая копирует часть изображения с рабочего стола. Подскажите почему она работает неправильно ?

var
Form1: TForm1;
ScreenDC:HDC;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Canvas:TCanvas;
SRect,DRect:TRect;
begin
ScreenDC:=GetDC(0);
Canvas:=TCanvas.Create;
Canvas.Handle:=ScreenDC;

DRect:=Rect(600,0,500,300);

Form1.Canvas.Rectangle(DRect);
Canvas.Free;
ReleaseDC(ScreenDc,0);
end;

end.

[raxp]

>>> тык <<<