Button - Schrift blinken lassen...

[Mirilin]

Delphi-Quellcode:

var
  b : Boolean;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if b then
  begin
    Label1.Font.Color := clblack;
  end
  else
  begin
    Label1.Font.Color := clred;
  end;
  b := not b;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  b := false;
end;