Протестируйте и помогите

[k1r1ch]

Пишу программу для выполнения операций над простыми дробями. Есть две просьбы:
1) Протестируйте, если не затруднит Не пинать, так как программированием занимаюсь полгода.
2) Самое узкое место в программе - функция сокращения:

procedure TMainForm.Reducing(var N1, N2: Int64);
var MinN: Int64; I: integer;
begin
  InReducing := true;
  MinN := Min(Abs(N1), Abs(N2));
  if MinN > High(Integer) then MinN := High(Integer);
  for I := 2 to MinN do
    begin
      if (N1 mod I = 0) and (N2 mod I = 0) then
        while (N1 mod I = 0) and (N2 mod I = 0) do
          begin
            N1 := N1 div I;
            N2 := N2 div I;
          end;
      Info.Caption := 'Сокращение (' + IntToStr(I) + ' из ' + IntToStr(MinN) +
      '). Нажмите Esc для остановки';
      Application.ProcessMessages;
      if ((GetAsyncKeyState(VK_ESCAPE) <> 0) and
      (GetAsyncKeyState(VK_ESCAPE) <> 1)) or not InReducing then
        begin
          InReducing := false;
          Exit;
        end;
    end;
  InReducing := false;
end;

Можете это увидеть, если введете в дробях все четырех- и более значные числа. Как ее упростить?

[Greblin]

Ой, Вы что, на все подряд числа пытаетесь поделить? А не проще и лучше алгоритмом Евклида найти НОД?

[TwiX]

2) Я не понял? Упрощения тормозит?
Тут же уже проходили...
http://programmersforum.ru/showthread.php?t=65730
------------------------------------------------------------
И почему она весит полтора метра?оО

[raxp]

не пинать...

ну а конструктивное замечание можно?
- вот вы сделали навороченый интерфейс, все красиво спору нет... но вот смотришь, а куда какие числа вводить нужно догадываться или наощупь, хотя-б хинты добавили

[TwiX]

Вместо : можно использовать /
А как сделать такой крестик?

[k1r1ch]

2raxp: Да, согласен, исправлю.
2TwiX: Дак это я с вашего алгоритма развил.
2Greblin: А это как? Я думал про такое, но не знал как сделать.

Вместо : можно использовать /
А как сделать такой крестик?

Это буква 'x'

[Пепел Феникса]

А как сделать такой крестик?

там скины.

[TwiX]

Сообщение от Пепел Феникса

там скины.

Т.е. тупо граница формы ставиться в bsNone и рисуется заново? Я то думал это чёт с winApi связано =)

[Alex Cones]

Дооооолго решает:
Это считала минуты 3.

[k1r1ch]

Я про что и говорю! Я там в Помощи написал, что после 10 000 можно уже и отменять, так как вероятность ошибки мала. Но конечно бы хотелось это переделать. Может исходный код выложить, вам так проще будет?

ПыСы: А что, до 20 000 он 3 минуты сокращал У меня чуть больше 10 секунд!