[roman]

Yo tengo otra versión:

Código Delphi [-]
function Choose(d: integer; values: array of Integer): Integer;
begin
  Result := values[d];
end;

Ejemplo de uso:

Código Delphi [-]
z := Choose(d, [60, 55, 50, 45, 40, 35, 30, 25, 20, 15, 10]);

// Saludos