Como retorna a porcentagem de um valor

Function calcprcento(valor:real;porcent:Real):real;
begin
percent := porcent / 100;
try
valor := valor * Percent;
finally
result := valor;
end;
end;