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.

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.