可以用rgb()函数，设三个变量r,g,b（都是0~255间的数，代表红，绿，蓝，最好是
全变量）并onformcreate初始化；
在timer控件的ontimer事件中：
用r,g,b控制，将rgb(r,g,b)返回的颜色赋给font.color你要的代码如下：
--------------------------------------------------------------------------
timer控件的ontimer事件中：
if (r<=255) and (g<=255) and (b<=255) then
begin
font.color;=rgb(r,g,b);
r:=r+1;
g:=g+1;
b:=b+1;
end
else
begin
r:=0;
g:=0;
b:=0;
end;
这个回答您满意吗？
