codice:
n1 := strtoFloat(Km_Percorsi.Text);    //converto da stringa a real
    n2 := strtoFloat(Consumo_Auto.Text);    //converto da stringa a real
    n3 := strtoFloat(Costo_Carburante.Text); //converto da stringa a real
    n4 := strtofloat(Spese_Viaggio.Text);   //converto da stringa a real
    n5 := strtofloat(ristorante.Text);   //converto da stringa a real
    n6 := strtofloat(albergo.Text);      //converto da stringa a real
    //n7 := strtofloat(totale_rimborsi.Text); //converto da stringa a real
    //n8 := strtofloat(Spese_auto.Text);         //converto da stringa a real

    c := (n1 / n2) * n3 + n4 + n6 + n5 + n7 + n8; //eseguo il calcolo e lo assegno a c
    a := (n1 / n2) * n3;                 //eseguo il calcolo e lo assegno a a
    b := n5 + n6 + n4;
    //scrivo nella casella di testo e riconverto la variabile
    Spese_Auto.Text := Floattostr(a);
    //scrivo nella casella di testo e riconverto la variabile
    totale_rimborsi.Text := Floattostr(b);
    //scrivo nella casella di testo e riconverto la variabile
    Totale.Text := Floattostr(c);



  except

    on e: Exception do

      ShowMessage(e.Message);

    on ECONVERTERROR do
      ShowMessage('Assicurarsi di aver inserito correttamente i valori');
    on EDivByZero do
      ShowMessage('Attenzione stai dividendo per zero!');

  end;

end;
Ciao commentando n7 e n8 mi esegue il calcolo cosa sto sbagliando in n7 e n8?

Ringrazio