auf dem Desktop zeichnen

[Teekeks]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
DCanvas: TCanvas;
DHandle: HWND;
begin
DHandle:=GetDC(0);
if DHandle<>0 then
begin
   try
     DCanvas:=TCanvas.Create;
     try
       DCanvas.Handle:=DHandle;
       DCanvas.Font.Color:=clRed;
       DCanvas.Font.Size:=24;
       DCanvas.Brush.Style:=bsClear;
       DCanvas.TextOut(100, 100, 'Ich will ein Spiel spielen!!!');
     finally
       DCanvas.Free;
     end;
    finally
      if ReleaseDc(0, DHandle)<>1 then
    end;
end;
end;

So. Das geht zwar (nach ewiger unit-suche) aber es passiert nichts.
Ich kriege keine Fehlermeldung, nichts, er tut einfach nichts nachdem ich auf den Button geklickt habe