1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure TForm1.losnClick(Sender: TObject);
begin
     if p=true then begin
     if ges.text<>'' then begin
     erg:=(StrToFloat(EBE.text)/StrToFloat(ges.text)*100);
     label10.caption:=FloatToStr(erg);
     i:=7;
 try
     Satz[1]:=strToFloat(EN1.text);
     Satz[2]:=strToFloat(EN2.text);
     Satz[3]:=strToFloat(EN3.text);
     Satz[4]:=strToFloat(EN4.text);
     Satz[5]:=strToFloat(EN5.text);
     Satz[6]:=0;
 except
    Label10.caption:= 'fehlerhafter MaЯstab';
 end;
 repeat
    i:=i-1;
    if erg >= Satz[i] then resu.text:= floatToStr(i) else i:=1;

 until i=1 ;
   end
   end
end;