Unknown Error Hilfe?!

[St0rmhunter]

Hallo Leute,

ich habe hier ein Problem immer wenn ich mein Programm starte kommt ein "Unknown Error". Vielleicht könnt ihr mir helfen indem ich hier mal den code poste. Ich bedanke mich schonmal im voraus Wenn ihr mehr Infos braucht sagts

Unit1:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i,z: Integer;
    e: boolean;
begin
  bank1:=TBank.create;
  //Zufallskonten
  randomize;
  e:=true;
  i:=0;
  bank1.kerstellen(memo1.lines[z],random(10000));
  listbox1.Items[i]:=inttostr(bank1.konten[i].knummer);
  listbox2.Items[i]:=bank1.konten[i].kinhaber;
  listbox3.Items[i]:=inttostr(bank1.konten[i].kstand);
  i:=i+1;
  while i<100 do
  begin
    z:=random(memo1.lines.Count);
    if bank1.konten[i].kinhaber = memo1.Lines[z] then
    begin
      e:=false;
    end;
    if e=true then
    begin
      bank1.kerstellen(memo1.lines[z],random(10000));
      listbox1.Items[i]:=inttostr(bank1.konten[i].knummer);
      listbox2.Items[i]:=bank1.konten[i].kinhaber;
      listbox3.Items[i]:=inttostr(bank1.konten[i].kstand);
      i:=i+1;
    end;
  end;
  label7.caption:='Konten: ' + inttostr(length(bank1.konten));
end;

bank (Unit2):

Delphi-Quellcode:

type
  TBank = class
       konten: array of TKonto;
       constructor create;
       procedure Kerstellen(inhaber:string;kstand:integer);
  end;

implementation

constructor TBank.create;
begin
  setlength(konten,0);
end;

procedure TBank.Kerstellen(inhaber:string;kstand:Integer);
begin
  setlength(konten,(length(konten)+1));
  konten[high(konten)] := TKonto.create(inhaber,length(konten),kstand);
end;

konto (Unit3):

Delphi-Quellcode:

type
  TKonto = class
         kstand,knummer: Integer;
         kinhaber: String;
         constructor create(i:string;n,s:integer);
         procedure abheben(betrag:Integer);
         procedure einzahlen(betrag:Integer);
  end;

implementation

constructor TKonto.create(i:string;n,s:integer);
begin
  kinhaber:=i;
  kstand:=s;
  knummer:=n;
end;

Nochmals danke im voraus =)