Упрощение дроби

[k1r1ch]

Мне нужно сделать упрощение дроби. Вот как я поступил:

procedure TForm2.CommonMultiplier(var N1, N2: Int64);
var I, Times: integer;
begin
  Times := GetTickCount;
  I := 2;
  while (N1 > 1) and (N2 > 1) do
    begin
      if (N1 mod I = 0) and (N2 mod I = 0) then
        begin
          N1 := N1 div I;
          N2 := N2 div I;
        end
      else Inc(I);
      if (GetTickCount - Times) > 5000 then exit;
    end;
end;

Все работает, но ждать некоторое время (даже 5 секунд) при вычислении 1/2 + 1/3 очень странно, а ставить меньше - значит на слабых машинах не упростятся сложные дроби.
Может есть у кого варианты, как это лучше организовать?

P.S.: N1 - числитель, N2 - знаменатель, если что...

[TwiX]

Я сделал так:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,min,a,b:integer;

begin
  a:=strtoint(edit1.Text);
  b:=strtoint(edit2.Text);
  if a>b then min:=a else min:=b;
  for i := 1 to min do
    if (a mod i = 0) and (b mod i = 0) then
    begin
      a:=a div i;
      b:=b div i;
    end;
  edit1.Text:=inttostr(a);
  edit2.Text:=inttostr(b);
end;

Работает быстро

[k1r1ch]

Спасибо! Я чето не допер)