Yo lo haría de forma ligeramente diferente, para que fuera mas sencillo agregar un label nuevo.
procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
// Tecla abajo
if (GetKeyState(VK_DOWN)<0) then
begin
// Si el ultimo laber no es verde muevo el color.
if Label3.Font.Color <> clLime then
begin
Label3.font.color := Label2.font.color;
Label2.font.color := Label1.font.color;
Label1.font.color := clYellow;
end
end;
end;
|