Matemáticas: Calcular porcentaje

[__cadetill]

Empezado por DarkByte

Y cómo lo cambio a div?? me podrías arreglar el código??

Tan sencillo como esto:

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

El trunc lo he puesto por si el componente devuelve un real y no tiene una propiedad estilo AsInteger