Migający Label

Jak zrobić by Label znajdujący się na Formie pojawiał się i znikał co sekundę?

Pewnie jakiś Timer będzie potrzebny i Label1.Visible := False;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ...
end;

mozna tak:
interval timera 1 musi wynosic 1000 a interval 2 timera 2000
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.visible:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
label1.visible:=false;
end;

end.

albo jak chcesz to petle

Przemilczę powyższe rozwiązanie :|.

Interwał na 1000ms.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.visible := not label1.visible;
end;

ok, wielkie dzięki...
Działa jak trzeba

można jeszcze tak :

if label1.visible=true then label1.visible:=false else label1.visible:=true;

//czy naprawde nie widzisz, ze rozwiazanie Marooneda dziala tak samo a jest duzo bardziej zwarte, eleganckie i najprawdopodobniej szybsze? pq

co do migającego label możesz też użyć komponentu: TJvBlinkingLabel z JediVCL