Program Delphi Untuk Menghitung Kombinasi r dari n

procedure TKombinasi.Button1Click(Sender: TObject);
var
  n,p,q,i,x,k,r:integer;
  c:real;
begin
  n:=strtoint(edit1.text);
  p:=1;
  for i:= 1 to n do
  begin
    p:=p*i;
  end;
  k:=strtoint(edit2.text);
  q:=1;
  for i:= 1 to k do
  begin
    q:=q*i;
  end;
  x:=n-k;
  if x>=0 then
  begin
    r:=1;
    for i:= 1 to x do
    begin
      r:=r*i;
      c:=p/(q*r);
      edit3.text:=floattostr(c);
      edit4.text:='Nilai n dan r yang Anda Input Memenuhi Kriteria';
    end;
  end;
  if x<0 then
  begin
    edit3.text:= 'ERROR';
    EDIT4.Text:='Nilai n Harus Lebih Besar Atau Sama Dengan r';
    end;
  if n=k then
  begin
    edit3.text:='1';
    EDIT4.text:='Nilai n dan r yang Anda Input Memenuhi Kriteria';
    end;
  if (n<0) or (k<0) then
  begin
  edit3.Text:='Error';
  EDIT4.text:='Nilai n dan r yang Anda Input Tidak Memenuhi Kriteria';
    end;
end;

procedure TKombinasi.Button2Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.text:=' ';
edit3.text:=' ';
edit4.text:=' ';
end;

procedure TKombinasi.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-30;
 if  label1.Left<=-300 then
 label1.Left := 750;
end;

procedure TKombinasi.Button3Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
Kombinasi.Hide;
end;

end.