[[ElKurgan]]

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
  // Cambios de color
  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