Flashing tekst

Hej,

Jeg vil gerne udskrive noget tekst øverste, mid på skrivebordet, der forsvinder igen efter et par sekunder. Tekstens baggrund skal være gennemsigtig.

Jeg kunne bruge følgende men hvordan får man teksten til at forsvinde igen, efter de 2 sekunder?

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 := 30;
    SetBkMode(ACanvas.Handle, TRANSPARENT) ;
    EndPath(ACanvas.Handle) ;
    ACanvas.TextOut(0, 0, TextToDraw) ;
  finally
    ReleaseDC(Handle, ACanvas.Handle) ;
    ACanvas.Free;
  end;
end;

DrawTextOnDesktop('Hej');