Du benennst deine Labels von L100 bis irgendwas, nimmst dir ein Integer namens Lbl, wo die nummer vor aktuellen Label rein kommt. Beim drücken nach Links machst du das:
Dec(Lbl);
TLabel(FindComponent('L'+IntToStr(Lbl+1))).Font.Co lor := clBlack;
TLabel(FindComponent('L'+IntToStr(Lbl))).Font.Colo r := clRed;
Nach rechts nimmste statt
Dec einfach inc und statt des Lbl+1 einfach Lbl-1
Dann brauchste noch Abfragen fürs erste und letzte Label und fertig
