Problem mit Listbox in einem 2. Formular

[HackBot]

Möchte einen Schüler den ich in Formblatt 2 eintrage in der Listbox in Formblatt 1 haben

Kann mir jemand sagen wo mein Fehler liegt

danke!!

Delphi-Quellcode:

type  schuelertyp = record
                nachname  : string[50];
                vorname   : string[15];
                Klasse    : string[12];
                Steuer    : string[30];
                end;
const text1 = ' Anzahl der Objekte :  '  ;
      text2 = ' ausgewähltes Objekt Nr. :  ' ;

var
  Form2: TForm2;
  schueler          : schuelertyp;
  f                 : file of schuelertyp;
  steuer1,lei       : real       ;
  schuelerzahl      : integer    ;
  schuelerdaten     : string ;
implementation

uses Unit1;

{$R *.dfm}
  // Hinzufügen der String's ins Listenfeld //
procedure TForm2.bbtn_eingabemaske_addClick(Sender: TObject);
var        i   :  integer;
begin
  if edit_name.Text <> '' then
    begin
    end
else
      showmessage (' Bitte einen Namen eintragen !');
      edit_name.SetFocus;
    end;

    begin
if edit_vorname.Text <> '' then
    begin
    end
else
      showmessage (' Bitte einen Vornamen eintragen !');
      edit_vorname.SetFocus;
    end;
if edit_klasse.Text <> '' then
    begin
    end
else
      showmessage (' Bitte einen Klasse eintragen !');
      edit_Klasse.SetFocus;
    end;

    schueler.nachname := edit_name.Text;
     schueler.vorname := edit_vorname.text;
    schueler.Klasse := edit_klasse.Text;
    for i := 1 to 20-length(schueler.nachname)do
    begin
      schueler.nachname := schueler.nachname + ' ';
    end;
    schuelerdaten := schueler.nachname + schueler.vorname +'   '+
    schueler.Klasse +'    ';
    Form1.lst_schueler.Items.Add (schuelerdaten );
    schuelerzahl := schuelerzahl+1;
    Form1.Statuszeile.Panels.Items[0].text := text1+inttostr(schuelerzahl);
    seek(f,filesize(f));
    write(f,schueler);
  end

end;
end;

Habe auch Bilder Dabei und die Exe vom Programm