thx

new proj - new prob:

Also, jetzt habe ich so ein paar Fehlermeldungen bezüglich einer Umwandlung von Variablen (StrToInt).
Folgend ein Ausschnitt des Quellcodes:
Code: 
var
  Form1: TForm1;
  gramm, fett, kcal, ergebnis: String;

procedure TForm1.Button1Click(Sender: TObject);
begin
//Zunächst wird geprüft, ob die Angaben des Nahrungsmittels
//für je 100 Gramm gedacht sind. Wenn dem so ist, wird nach
//der LowFett30-Formel der Fettgehalt berechnet.
//Falls die Angaben nicht für 100 g angegeben sind, werden
//die Variablen zunächst umgerechnet und danach wird der
//Fettgehalt berechnet.

  gramm := StrToInt(Edit1.Text);
  fett  := StrToInt(Edit2.Text);
  kcal  := StrToInt(Edit3.Text);
  if (gramm = 100) then
    begin
    ergebnis := (fett * 9 * 100) / kcal;
    end
  else
    begin
    fett := (fett / gramm) * 100;
    kcal := (kcal / gramm) * 100;
    ergebnis := (fett * 9 * 100) / kcal;
    end
  end;

//Das Ergebnis wird in einem neuen Formular dargestellt.

  Form2.Label2.Caption := IntToStr(ergebnis);

  if (ergebnis <= 30) then
    begin
    Form2.Image1.Picture.LoadFromFile('img\erlaubt.bmp');
    end
  else
    begin
    Form2.Image1.Picture.LoadFromFile('img\nerlaubt.bmp');
    end
  end;

  Form2.Show;
end;
Soa, String und Integer harmonieren noch nicht zusammen und zudem ist wohl die Picture-Imagezuweisung noch nicht korrekt.