1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c : Byte;
begin
  a := 200;
  b := 1;
  c := 1;
  Label1.Font.Color := rgb(a,b,c);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

implementation
var
  a:byte=1;
  b:byte=1;
  c:byte=1;
  i:integer;
{$R *.DFM}



procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(i);
inc(a);
inc(b);
inc(c);
if i mod 2 = 0 then
label1.visible:=false
else
 label1.visible:=true;


 label1.font.color:=rgb(a,b,c);
end;