Компилятор не ругается, но при запуске выдает ошибку о работе с памятью

unit ClassBank;
 
 
 
 
interface
uses
 
  ClassAccount;
 
 
 
type
  Bank = class
         Abon : array[0..100] of Account;
         count : Integer;
 
         constructor Create();
 
         procedure AddAbon(Mon, PProc : integer);
         procedure DelAbon();
 
         function ShowMe(i : integer) : integer;
         function Members() : integer;
 
          end;
 
 
 
implementation
 
//--------------------------------------------------------------
  constructor Bank.Create();
  begin
    count := 0;
    Abon[0].Create(0, 0);
  end;
 
 
//--------------------------------------------------------------
  procedure Bank.AddAbon(Mon, PProc : integer);
  begin
 
    count := count + 1;
    Abon[count].Create(Mon, PProc);
 
    
  end;
 
 
//--------------------------------------------------------------
  procedure Bank.DelAbon();
  begin
    Abon[count].Money := 0;
    Abon[count].Procent := 0;
 
    count := count - 1;
  end;
 
 
//--------------------------------------------------------------
  function Bank.Members() : Integer;
  begin
    Result := count;
  end;
 
 
//--------------------------------------------------------------
  function Bank.ShowMe(i : Integer) : Integer;
  begin
    Result := Abon[count].ProcentYear(i);
  end;
 
end.

unit ClassAccount;
 
interface
type
  Account = class
            Money : integer;
            Procent : integer;
 
            constructor Create(); overload;
            constructor Create(Mon, Proc : integer); overload;
 
            function ProcentYear(Mon, Proc, Year : Integer) : Integer; overload;
            function ProcentYear(Year : Integer) : Integer;  overload;
 
            end;
 
implementation
 
//==============================================================================
  constructor Account.Create();
  begin
    Money := 0;
    Procent := 0;
  end;
 
 
//==============================================================================
  constructor Account.Create(Mon, Proc : integer);
  begin
    Money := Mon;
    Procent := Proc;
  end;
 
 
//==============================================================================
  function Account.ProcentYear(Mon, Proc, Year : Integer) : integer;
  var
    i : integer;
  begin
 
    Money := Mon;
    Procent := Proc;
 
    Result := Money;
 
    for i := 1 to Year do
      Result := Result + ((Result * Procent) div 100);
 
  end;
 
 
//==============================================================================
  function Account.ProcentYear(Year : Integer) : integer;
  var
    i : integer;
  begin
    Result := Money;
 
    for i := 1 to Year do
      Result := Result + ((Result * Procent) div 100);
  end;
 
end.

  procedure Bank.AddAbon(Mon, PProc : integer);
  begin
     count := count + 1;
    Abon[count]:=Account.Create(Mon, PProc);