[Delphi] try....except

[Millman]

Salve,

Non riesco a fare i calcoli, appena premo sul bottone calcola mi esegue sempre:

ShowMessage('Assicurarsi di aver inserito correttamente i valori');

ma i valori sono corretti se avete tempo ci date un occhio?

Vi ringrazio

procedure TForm1.BCalcolaClick(Sender: TObject);
var
  n1, n2, n3, n4, n5, n6, n7, n8, c, a, b: real;

begin

  try


    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 + n7 + n8; //eseguo il calcolo e lo assegno a c
    a := (n1 / n2) * n3;                 //eseguo il calcolo e lo assegno in a
    b := n5 + n6 + n4;                   //eseguo il calcolo e lo assegno in b
    totale_rimborsi.Text := floattostr(b);
    //Assegno la variabile a totalerimb... e la rinconverto 
    Spese_Auto.Text := Floattostr(a);
    //Assegno la variabile a spese... e la rinconverto 
    Totale.Text := Floattostr(c);
    //Assegno la variabile a totale... e la rinconverto 


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

  end;

end;