Problem mit Listbox in einem 2. Formular

[HackBot]

OK Progamm startet wieder bekomme jetzt einen E/A Fehler

Habe Das geändert:

Delphi-Quellcode:

 // Hinzufügen der String's ins Listenfeld //
procedure TForm2.bbtn_eingabemaske_addClick(Sender: TObject);
var        i   :  integer;
begin
  if edit_name.Text = '' then
    begin

      showmessage (' Bitte einen Namen eintragen !');
      edit_name.SetFocus;
    end;

    begin
if edit_vorname.Text = '' then
    begin
      showmessage (' Bitte einen Vornamen eintragen !');
      edit_vorname.SetFocus;
    end;
if edit_klasse.Text = '' then
    begin

      showmessage (' Bitte einen Klasse eintragen !');
      edit_Klasse.SetFocus;
    end;