[Neftali [Germán.Estévez]]

Supongo que se refiere a "papadear"...
Utliza un Timer, por ejemplo con (Interval = 300);
En el evento del Timer colocas:

Código Delphi [-]
  Label1.visible := not (Label1.visible);
  Label1.Repaint;

Y en el evento OnClick del Label puedes poner:

Código Delphi [-]
  Timer1.Enabled := False;