CopyRect, скопировать канву Desktop на Form

[Winexcel]

Собственно игрался со свойством CopyRect, и вышло как-то так, сам не пойму , что вместе с с Form2 которая копировалась на Form1 копировалось ещё и половину рабочего стола, собственно стало интересно, как скопировать рабочий стол на форму, копирование юзал так:

var
D,S:TRECT;
begin
S:=Rect(0,0,Form2.Width,Form2.Height);
D:=Rect(10,10,Form2.Width,Form2.Height);
Canvas.CopyRect(D,Form2.canvas,S);

[Winexcel]

Если растянуть форму на весь экран и сделать так:

var
D,S:TRECT;
begin
repaint;
S:=Rect(0,0,screen.Width,screen.Height);
D:=Rect(0,0,Form1.Width,Form1.Height);
Canvas.CopyRect(D,form1.Canvas,S);

То будет работать, но опять же, сам рабочий стол не видно, а лишь только нижний бар.

[ZX Spectrum-128]

procedure TForm1.Button1Click(Sender: TObject);
var
  DC : HDC;
begin
DC := GetDC (GetDesktopWindow) ;
   try
    Form1.Width := GetDeviceCaps (DC, HORZRES) ;
    Form1.Height := GetDeviceCaps (DC, VERTRES) ;
    BitBlt(Form1.Canvas.Handle,
           0,
           0,
           Form1.Width,
           Form1.Height,
           DC,
           0,
           0,
           SRCCOPY) ;
   finally
    ReleaseDC (GetDesktopWindow, DC) ;
   end;


end;

[Winexcel]

Задам вопрос в этой же теме, почему CopyRect создаёт такой эффект?

То есть сначала копируется Form2 на Form1 а затем уже немного рабочего стола внизу.

var
D,S:TRECT;
begin
D:=RECT(0,0,Form2.Width,Form2.Height);
S:=RECT(0,0,Form2.Width,Form2.Height);
Form1.Canvas.CopyRect(D,Form2.Canvas,S);