No entiendo porque usas un Timer... ¿Es una exigencia de la prueba?
Yo haría la captura justo en el evento de presionar la tecla de flecha abajo en el formulario (onKeyDown) y le pasaría este código:
Código Delphi
[-]procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (GetKeyState(VK_DOWN)<0) then
begin
if Label1.Font.Color = clLime then
begin
Label1.font.color := clYellow;
Label2.font.color := clLime;
Label3.font.color := clYellow;
end
else
if Label2.font.Color = clLime then
begin
Label1.font.color := clYellow;
Label2.font.color := clYellow;
Label3.font.color := clLime;
end
else
if Label3.font.Color = clLime then
begin
Label1.font.color := clLime;
Label2.font.color := clYellow;
Label3.font.color := clYellow;
end
end;
end;
Espero que te sirva
Saludos