Code: 
  gramm := StrToFloat(Edit1.Text);
  fett  := StrToFloat(Edit2.Text);
  kcal  := StrToFloat(Edit3.Text);
steht vor dem vorigen Code.

hab jetz
Code: 
ergebnis := round((fett * 9 * 100) / kcal);
noch in die try-formel gepackt.
klappt jetz alles, so wie ich es haben möchte