如何在桌面上绘图？我的这个程序怎么不行呢？（我只剩40分了，只能给10分了，请笑纳）

如何在桌面上绘图？我的这个程序怎么不行呢？（我只剩40分了，只能给10分了，请笑纳）
var
  Form1: TForm1;
  Bitmap1:Tbitmap;
  DesktopDC:HDC;
  sc:TCanvas;
implementation
procedure TForm1.FormCreate(Sender: TObject);begin
DesktopDC:=GetDC(GetDesktopwindow());
sc:=TCanvas.Create;
sc.Handle:=DesktopDC;
end;procedure TForm1.BitBtn1Click(Sender: TObject);
begin
sc.LineTo(50,50);
sc.LineTo(100,700);
end;