نوشتن روی desktop

[grand_ceasare]

با سلام و آرزوی قبولی طاعات دوستان
یک سوال داشتم,
چطوری یک یا چند خط متن رو روی desktop بنویسم؟؟؟
با فونت دلخواه,و جای دلخواه.
البته میخوام بعد از چند ثانیه خودبه خود پاک بشه.
ممنون

[majid_ramak]

procedure DrawTextOnDeskTop(TextToDraw: string);
var
Handle: HWND;
DC: HDC;
ACanvas: TCanvas;
begin
Handle:= GetDesktopWindow;
DC:= GetWindowDC(Handle);
ACanvas:= TCanvas.Create;
try
ACanvas.Handle:= DC;
BeginPath(ACanvas.Handle);
ACanvas.Font.Color:= clRed;
ACanvas.Font.Name:= 'Tahoma';
ACanvas.Font.Size:= 50;
SetBkMode(Acanvas.Handle, TRANSPARENT);
EndPath(ACanvas.Handle);
ACanvas.TextOut(400, 300, TextToDraw);
finally
ReleaseDC(Handle, ACanvas.Handle);
ACanvas.Free;
end;
end;