Как сделать текст в Delphi ,(Label) , чтобы он всегда менял цвет (как гифка)?

В компоненте TTimer есть событие OnTimer или что-то вроде того, в нём выполняешь
randomize;
TLabel.font.colour:=random(16000);
И при событии OnAcivare; OnIInitialize etc запускай таймер TTimer.start;