Nach dem Schließen eine Form Procdure einer anderen Form ausführen

[MCOP2001DE]

Die Variable SpalteNeuerArtikel wird in der Procedure BestellungneuerartikelS1 beschrieben und soll nach dem Schließen der Form NeuerArtikel die 10 Spalten unterscheiden so das die Variablen ID1 - ID10 nur von den Spalten beschrieben werden.
Mit der ID1..10 wird die Artikel_ID aus der Datenbank für jede Spalte zwischen gespeichert.

Das eigentliche Problem scheint die Variabel SpalteNeuerArtikel zusein.
diese wird Hier beschrieben

Delphi-Quellcode:

procedure TBestellung.BestellungneuerartikelS1;
begin
  if eBezeichnung1.Text <> '' then
    begin
      if ID1 = 0 then
        begin
          SpalteNeuerArtikel := 1;
          Main.Artikelbezeichnung := eBezeichnung1.Text;
          Main.Artikelnr := eArtikelnummer1.Text;
          Main.Preis := eEinzelpreis1.Text;
          Main.Lieferant := eLieferant1.Text;
           Main.FNeuerArtikeloeffnen;
         end;

    end;
end;

Der Fehler

Im Projekt VerwaltungV1.exe ist eine Exception der Klasse $C0000005 mit der Meldung 'access violation at 0x007dc39a: read of address 0x000006e4' aufgetreten.

wird in der Procedure BestellungNeuerArtikelLaden ausgelöst.

Delphi-Quellcode:

// nach dem schliessen des Frames NeuerArtikel wird die ID neu ermittel
procedure TBestellung.BestellungNeuerArtikelLaden;
begin
  if SpalteNeuerArtikel = 1 then // Hier wird der Fehler Ausgelöst
    begin
      ID1 := Artikelpruefung(eBezeichnung1.Text,eEinzelPreis1.Text,eArtikelnummer1.Text,eLieferant1.Text);
    end;

end;