1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Button1Click(Sender: TObject);
 begin v_z3:= strtoint (Edit_z3.Text);
 v_n3:= strtoint (Edit_n3.Text);
 v_a:= v_z3;
 v_b:= v_n3;
 v_rest:= 0;
 if v_b <> 0 then repeat v_rest:= v_a mod v_b;
 v_a:=v_b;
 v_b:=v_rest;
 until v_rest = 0;
 v_a:= abs(v_a);
 v_z3:= v_z3 div v_a;
 v_n3:= v_n3 div v_a;
Edit_n3.Text := inttostr (v_n3);
 Edit_z3.Text:= inttostr (v_z3);

 end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function p_ggT(a, b: integer): integer;
var
  x, y, r: Integer;
begin
  x := a;
  y := b;
  r := x mod y;
  while (r <> 0) do
  begin
    x := y;
    y := r;
    r := x mod y;
  end;
  result := y;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var a,b,ggT: integer;
begin
   a:=StrToInt(Edit_Nenner_ungekuerzt.Text);
   b:=StrToInt(Edit_Zaehler_ungekürzt.Text);
   ggT:=p_ggT(a,b);
   Edit_Zaehler_gekuerzt.Text:=IntToStr(trunc(a/ggT));
   Edit_Nenner_gekuerzt.Text:=IntToStr(Trunc(b/ggT));
end;