Label Tampil Secara Bergantian

sediakan pada form

• 2 label
• 1 timer
• pada event di timer

procedure TForm1.Timer1Timer(Sender: TObject);
var n:byte;
begin
n:=strtoint(formatdatetime('ss',now()));
if (n mod 2)=0 then label1.Visible:=false
else
label1.Visible:=true;
label2.Visible:=not label1.Visible;

end;