Деление двух длинных чисел, как реализовать с помощью объектов в Delphi? Опции

[serogan]

В FAQ'е (длинная арифметика) нашла функции для деления двух длинных чисел. Можете объяснить, как реализовать это в Delphi, желательно как объекты? Заранее спасибо.

[Айра]

Забыла инициализировать переменную Per...

Сделала процедуру с делением. Воть:

procedure TForm12.Button3Click(Sender: TObject);
var m,n: longint;
    f1,f2,ost,raz: TObj;
begin
  if (edit5.text='') or (edit6.text='') then
    begin
      MessageBeep(MB_ICONHAND);
      ShowMessage('Не заданы значения!');
    end
  else
    begin
      memo2.Text:='';
      m:=StrToInt(edit5.Text);
      n:=StrToInt(edit6.Text);
      f1.Init; f2.Init; ost.Init; raz.Init;
      fact(f1, m);
      fact(f2, m-n);
      raz.DivLongTwo(f1,f2,ost);
      memo2.text:=raz.HugeToStr;
    end;
end;

Только если просто считать факториалы от 0 или 1 опять будет "access violation at address 0046ECE in module ... Read of address 02C0FFFC" и выделится эта строка в модуле dlinna

Function TObj.HugeToStr: String;
var ls,s:string;
    i:integer;
begin
   result := '';
   str(_osn div 10, ls);
   result := result + IntToStr(X^[X^[0]]);
   for i:=X^[0]-1 downto 1 do
      begin
         str(X^[i],s);    //эта
         while length(s)<length(ls) do s:='0'+s;
         result := result + s;
      end;
end;

а если делить их друг на дружку будет считать неправильно(((

Мне надо прописать эти варианты (if n=0 then ...) или можно сделать по-другому?