[[maeyanes]]

Hola...

Primero que nada, te recomiendo que repases de nuevo la Guía de Estilo de estos foros (enlace en el menú superior del foro). Esto es por que en estos foros no existe el concepto de Urgencia...

Sobre tu problema, solo te puedo dar pistas, ya que no uso FastReport...

Checa que el componente Label que usas para mostrar el resultado de la operación tenga un evento OnBeforePrint o un OnGetText...

Para verificar que tu operación no te produzca un error de División por Cero puedes validar mediante un if..then:

Código Delphi [-]
if (Plan1 = 0) then
  Porcentaje := x
else
  Porcentaje := (Plan2 * 100) / Plan1;

// Cambiar el color dependiendo del resultado:

if Porcentaje < 95 then
  LabelFastReport.Font.Color := clRed
else
  LabelFastReport.Font.Color := clBlue;
Text := Format(%d%%', [Porcentaje])

Saludos...