einmal Fehler einmal nicht

[milos]

Hmm also...
Ich Programmier mit delphi ein Hilfsprogramm...
ich habe eine Idee, doch einmal kommt eine fehlermeldung einmal nicht.
Hier Quellcode mit dem Fehler:

Delphi-Quellcode:

procedure Teinheiten.Label1Click(Sender: TObject);
begin
rek.show
end;

procedure Teinheiten.rechnerClick(Sender: TObject);
var
  zahl1, zahl2, zahl3, zahl4, zahl5, zahl6, zahl7, zahl8, zahl9, zahl10, zahl11, zahl12, bev1, bev2, bev3, bev4, bev5, bev6, bev7, bev8, bev9, bev10, bev11, bev12, ergebnis, ergebnis1, ergebnis2, ergebnis3, ergebnis4, ergebnis5, ergebnis6, ergebnis7, ergebnis8, ergebnis9, ergebnis10, ergebnis11, ergebnis12, bevr1, bevr2: Integer;
begin
  zahl1 := StrToInt(n1.caption);
  zahl2 := StrToInt(n2.caption);
  zahl3 := StrToInt(n3.caption);
  zahl4 := StrToInt(n4.caption);
  zahl5 := StrToInt(n5.caption);
  zahl6 := StrToInt(n6.caption);
  zahl7 := StrToInt(n7.caption);
  zahl8 := StrToInt(n8.caption);
  zahl9 := StrToInt(n9.caption);
  zahl10 := StrToInt(n10.caption);
  zahl11 := StrToInt(n11.caption);
  zahl12 := StrToInt(n12.caption);
  bev1 := StrToInt(n1.caption);
  bev2 := StrToInt(n2.caption);
  bev3 := StrToInt(n3.caption);
  bev4 := StrToInt(n4.caption);
  bev5 := StrToInt(n5.caption);
  bev6 := StrToInt(n6.caption);
  bev7 := StrToInt(n7.caption);
  bev8 := StrToInt(n8.caption);
  bev9 := StrToInt(n9.caption);
  bev10 := StrToInt(n10.caption);
  bev11 := StrToInt(n11.caption);
  bev12 := StrToInt(n12.caption);
  bevr1 := StrToInt(bev.caption);
  bevr2 := StrToInt(label15.caption);







  ergebnis := zahl1 * 1 + zahl2 * 1 + zahl3 * 1 + zahl4 * 1 + zahl5 * 2 + zahl6 * 4 + zahl7 * 5 + zahl8 * 6 + zahl9 * 5 + zahl10 * 8 + zahl11 * 100 + zahl12 * 10;
  ergebnis1 := bev1 * 1;
  ergebnis2 := bev2 * 1;
  ergebnis3 := bev3 * 1;
  ergebnis4 := bev4 * 1;
  ergebnis5 := bev5 * 2;
  ergebnis6 := bev6 * 4;
  ergebnis7 := bev7 * 5;
  ergebnis8 := bev8 * 6;
  ergebnis9 := bev9 * 5;
  ergebnis10 := bev10 * 8;
  ergebnis11 := bev11 * 100;
  ergebnis12 := bev12 * 10;

  label15.Caption := IntToStr(ergebnis);
  b1.Caption := IntToStr(ergebnis1);
  b2.Caption := IntToStr(ergebnis2);
  b3.Caption := IntToStr(ergebnis3);
  b4.Caption := IntToStr(ergebnis4);
  b5.Caption := IntToStr(ergebnis5);
  b6.Caption := IntToStr(ergebnis6);
  b7.Caption := IntToStr(ergebnis7);
  b8.Caption := IntToStr(ergebnis8);
  b9.Caption := IntToStr(ergebnis9);
  b10.Caption := IntToStr(ergebnis10);
  b11.Caption := IntToStr(ergebnis11);
  b12.Caption := IntToStr(ergebnis12);

  if label15.caption > bev.caption
  then label15.color := clRed


end;

end.

Und hier Quellcode ohne Fehler:

Delphi-Quellcode:

var
  zahl1, zahl2, ergebnis: Integer;
begin
  zahl1 := StrToInt(Edit1.Text);
  zahl2 := StrToInt(label4.caption);
if label4.caption > edit1.text
then label5.Color := clActiveBorder

end;

end.

Beide Codes sind ja gleich nur das im oberen mehr gerechnet wird

Hier die Fehlermeldung:
http://img.toontown-click.de/bild.ph...rppgn9K8N0.png