Funcao - valores percentuais

// Retorna a porcentagem de um valor

function GeraPercent(const Valor, Percent: Double): Double;

begin

  Result := Valor * (Percent / 100);

end;

  // Retorna 1 % de 1000

  GeraPercent(1000, 1);

  // Retorna 90 % de 340,40

  GeraPercent(340.40, 90);

  // Retorna 19,3 % de 20,96

  GeraPercent(20.96, 19.3);

  // Retorna 10 % de 210

  GeraPercent(210, 10);