delphi中怎么让字体变色啊？

请教高手
timer中应该怎么写？

要让字体随即变色

var
i,j,k:integer;

Randomize;
i:=Random(255);
j:=Random(255);
k:=Random(255);
Edit1.Font.Color:=RGB(i,j,k);

这个是简单的：end;begin if label1.font.color=clblack thenlabel1.font.color:=clredelse if label1.font.color=clred thenlabel1.font.color:=clyellowelse label1.font.color:=clblack;以上代码delphi 7.0测试经由过程的.然则用随机的似乎有问题，。等我调试后再说吧

这个是简单的： begin if Label1.font.color=CLBlack then Label1.font.color:=CLred else if Label1.font.color=CLred then Label1.font.color:=CLyellow else Label1.font.color:=CLBlack; end; 以上代码delphi 7.0测试通过的.但是用随机的好像有问题，。等我调试后再说吧

Timer的Interval设置程序1000，写下面代码： procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Font.Color:=clBlue; application.ProcessMessages; sleep(300); Label1.Font.Color:=clRed; application.ProcessMessages; sleep(300); end;