du könntest auch einfach drei tshapes einfügen, und die farbe verändern. das wäre weniger aufwändig. du müsstest nur
Delphi-Quellcode:
shape1.brush.color := clgreen;
shape2.brush.color := clgray;
shape3.brush.color := clgray;
schreiben, um z.b. eine grüne ampel zu haben. für gelb und rot entsprechend angepasste codes.