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
Código:
var
Total : integer;
Porciento : integer;
begin
......
Total := strtoint(eTotal.Text);
......
Porciento := Veces1.value*100/Total;
Porcentaje.Caption := inttostr (Porciento)+"%";