Die Anwendung verwendet für die akt. Vorgang einen Wert vom falschen Typ ?

[nachtstreuner]

Hallo Delphifreunde,

ich benötige mal wieder Eure Hilfe.

Ich bekomme beim Schließen eines Formulars folgende Fehlermeldung:

Die Anwendung verwendet für die akt. Vorgang einen Wert vom falschen Typ



Hier mal der Code-Schnipsel

Code:

//------------------------------------------------------------------------------
// Das Formular wird angezeigt
//------------------------------------------------------------------------------
procedure TfrmDLS_erstellen.FormShow(Sender: TObject);
begin
    ed_Versender.Text := Anmeldung.Vorname + ' ' + Anmeldung.Zuname;

    DataModul.ADOQueryFirma.SQL.Clear;
    DataModul.ADOQueryFirma.SQL.Text := 'SELECT * FROM DLS_Kunden order by Name asc' ;
    DataModul.ADOQueryFirma.Active := true;

    Ansprechzaehler := 0;
    DataModul.AdoQueryNRKreis.Active := true;
  end;
//----------------------------------------------------------------------------
// Das Formular soll über den Button (ENDE) geschlossen werden
//----------------------------------------------------------------------------
 procedure TfrmDLS_erstellen.AdvGlowButton5Click(Sender: TObject);
begin
  DataModul.AdoQueryNRKreis.active          := false;
  DataModul.AdoQuery_Ansprechpartner.active := false;
  DataModul.ADOQueryFirma.active            := false; // und genau an dieser Stelle kommt die Fehlermeldung
  frmDLS_erstellen.Close;
end;
//------------------------------------------------------------------------------
// Das Formular wird geschlossen
//------------------------------------------------------------------------------
procedure TfrmDLS_erstellen.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 Action:=caFree;
 if self = frmDLS_erstellen then frmDLS_erstellen :=nil;
end;