ok, ich hab es jetz soweit zum laufen bekommen.

jetzt möchte ich aber noch mit einem try...except die Division durch 0 verhindern. wie mach ich das?
ich mein,
Code: 
try
  if (gramm <> 100) then
    begin
    fett := (fett / gramm) * 100;
    kcal := (kcal / gramm) * 100;
    end;
  except
     Form3.Label1.Caption := 'Es ist ein Fehler aufgetreten.';
     Form3.show;
     Form1.Enabled := False;
   end;
  ergebnis := round((fett * 9 * 100) / kcal);
ruft schonmal das eigene Fehlerfenster hervor, es kommt aber auch noch die Fehlermeldung vom Compiler. ich hab schon versucht, die irgendwie abzustellen - bisher jedoch erfolglos