Hjælp til acces af array!

Jeg er igang med at lave en opgave på min skole og SKAL lave et lille bank system. men jeg har et problem med at hente dataen ud af det array som jeg lægger dem i.
her noget af min kode jeg får en acces violation error på den linie med '*' ud for.
  private
    { Private declarations }
    Konti : array of TKonto;
    AntalKonti : Integer;
    AktuelKonto : Integer;
.
.
var
  kontonummer : String;
begin
  inc(AntalKonti);
  SetLength(konti,Antalkonti+1);
  kontonummer:=inttostr(2600+10*antalkonti+random(10));
  Konti[AntalKonti] := TKonto.create(edtNavn.text, kontonummer,
      cbKontoType.text, edtKredit.text, '0');
  edtNavn.SetFocus;
  edtKontonrAdmin.text:=konti[AntalKonti].Kontonr;
end;

procedure TForm1.btnFindAdminClick(Sender: TObject);
var
  i :Integer;
  ok : boolean;
begin
  ok:=false;
  for i:= 0 to AntalKonti do;
  begin
*  if konti[i].KontoNr=edtKontoNrAdmin.text then
    begin
      aktuelkonto:=i;
      ok:= true;
    end;
  end;
  if ok then
  begin
    edtnavn.text:=konti[aktuelkonto].navn;
    edtKredit.text:=konti[aktuelkonto].KreditMaximum;
    cbkontotype.text:=konti[aktuelkonto].KontoType;
  end
  else
    showmessage('Konto findes ikke!');
end;

Farnsworth