Secuencia de colores con Labels

[Milworm99]

Hola gente de la comunidad clubdelphi, tengo problemas con los label

Lo que estoy haciendo es una secuencia de colores:

- En el form tengo 3 label con estos colores por defecto:

Label1 // Color Verde
Label2 // Color Amarillo
Label3 // Color Amarillo

- Lo que quiero es que al presionar la tecla flecha abajo (VK_DOWN) el color Verde del Label1 se pase al Label2 y el Label1 cambie al color a Amarillo.

Label1 // Color Amarillo
Label2 // Color Verde
Label3 // Color Amarillo

- Preciono nuevamente la misma tecla flecha abajo (VK_DOWN) por segunda ves, se pase el color Verde que esta en el Label2 al Label3 y el label2 se cambie a Amarillo.

Label1 // Color Amarillo
Label2 // Color Amarillo
Label3 // Color Verde

Lo que estoy haciendo es asi en un Timer con Intervalo 1

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (GetKeyState(VK_DOWN)<0) then
begin
if Label1.Font.Color = clLime then
begin
Label1.font.color := clYellow;
Label2.font.color := clLime;
end;
end;
begin
if (GetKeyState(VK_DOWN)<0) then
begin
if Label2.font.Color = clLime then
begin
Label2.font.color := clYellow;
Label3.font.color := clLime;
end;
end;
end;
end;
end.

Mi problema es que al presionar la tecla flecha abajo (VK_DOWN) el Label3 automaticamente se pasa a color Verde y el Label1 y Label2 a amarillo, al presionar la tecla queda asi

Label1 // Color Amarillo
Label2 // Color Amarillo
Label3 // Color Verde

El problema es que no sigue la secuencia deseada

Espero que me ayuden porfavor, gracias por adelantado