این کد زمان را به طور دقیق بر روی دسکتاپ نقش می کند.اگر // اولی را بردارید فرم مخفی می شود و فقط ساعت نمایش داده می شود.و اگر // دومی را بردارید پس زمینه ساعت حذف می شود.

procedure TForm1.Timer1Timer(Sender: T);
var
 d:TDateTime;
 x:integer;
 str:String;
begin
// form1.Hide;
  desktopcanvas:=TCanvas.Create;
  desktopcanvas.Handle:=GetDC(HWND_DESKTOP);
  d:=Time;
  str:=TimeToStr(d);
//desktopcanvas.Brush.Style:=bsClear;
  desktopcanvas.Font.Color:=clRed;
  desktopcanvas.Font.Name:=("tahoma");
 desktopcanvas.Font.Size:=20;
  desktopcanvas.TextOut(12,12,str);
 SetBkMode(Canvas.Handle,x);