Mep Sites: Dicas de Delphi - Pegar porcentagem de um valor

Veja a seguinte função:

function Gerapercentual(valor:real;Percent:Real):real;
// Retorna a porcentagem de um valor
begin
percent := percent / 100;
try
valor := valor * Percent;
finally
result := valor;
end;
end;

Por exemplo, chame-a assim:

Label1.Caption := Gerapercentual(100,5);

o que deveria resultar em '20', afinal 5% de 100 é 20. Lembre-se de converter os números para o tipo real, se não forem.