Matemáticas: Calcular porcentaje

[DarkByte]

El ejemplo que me refiero es el del 25% y no el 400 % ,el programa tiene que calcular el número de veces que se ha acertado la respuesta, adjunto algo del código:

eTotal = Edit : Contiene todas las preguntas formuladas
Veces1 = VrNum (Un componente que encontré que solo contiene números) = contiene las preguntas acertadas

var
Total : integer;
Porciento : integer;
begin
......
Total := strtoint(eTotal.Text);
......
Porciento := Veces1.value*100/Total;
Porcentaje.Caption := inttostr (Porciento)+"%";