mach 3 labels: label1, label2 und label3.
mach 1 timer: timer1
wähl den timer an, klick doppelt drauf.
dann gib ein:
Delphi-Quellcode:
if label1.tag = 1 then label1.color := clred;
if label2.tag = 1 then label2.color := clblue;
if label3.tag = 1 then label3.color := clblack;
jetzt musst du nur bei den labels, die was machen sollen labelXY.tag := 1 vorher machen, bei allen anderen irgendwas <> 1. dann wechseln sie die farbe.
kannst auch eine case statt if-konstruktion nehmen!