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:
26:
27:
28:
29:
30:
31:
32:
33:

procedure TBinomFrm.BinomEnterBtnClick(Sender: TObject);
var
  i,n_fakt,p_fakt,nMINp_fakt,Eing1,
  Eing2,Eing3,Eing4,Wert1,Wert2,Erg1 : integer; //uff. Viel.
  Erg1_1:string;

begin
  n_fakt:=1; //n! Berechnung
  Eing1:=strtoint(edit1.text);
  for i:= 1 to Eing1 do
    n_fakt:=n_fakt*i;
end;

begin
  p_fakt:=1; //p! Berechnung
  Eing2:=strtoint(edit2.text);
  for i:= 1 to Eing2 do
  p_fakt:=p_fakt*i;
end;

begin //Ab hier beginnt das Problem
  Wert1:=strtoint(edit3.Text);
  Wert2:=strtoint(edit4.Text);
  Erg1 := Wert1-Wert2;
  (*Erg1_1:=floattostr(Erg1); //Nur zum testen ob der Rechenvorgang passt
  LoesungAusg.Text:=Erg1; *)

  for i:= 1 to Erg1 do
    nMINp_fakt:=nMINp_fakt*i;
  Hauptfenster.LoesungAusg.Text:=(inttostr(nMINp_fakt));
end;

end;