Cálculo de porcentagem

Estava bastante tempo sem programar nada e hoje a noite resolvi criar um programa simples para cálculo de porcentagem de um determinado valor.

Desenvolvi o primeiro teste em Delphi:

function Percent(ValorTotal, Porcentagem: single): Single;
begin

Result := (ValorTotal * Porcentagem) / 100;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  valortotal,
  porcentagem: Single;
  resultado: string;
begin
//------------------------------------------------------------------------------

valortotal := StrToFloat(edit1.Text);
porcentagem := StrToFloat(edit2.Text);  //70%

//direto sem usar funcao
//resultado := FloatToStr(((valortotal * porcentagem) / 100));

resultado := FloatToStr(Percent(valortotal, porcentagem));

ShowMessage('Total do valor recebido: ' + resultado + '%');

Edit3.Text := resultado;
  
//------------------------------------------------------------------------------  
end;

depois resolvi criar uma versão php:

OBS: O blogspot nao deixou postar o código PHP!!!

Link para o demo:

http://lordzero.freehostia.com/tools/porcentagem.php