Datenbankfehler Programm bleibt im Speicher

[Andreas13]

Hallo,

würde das so nicht funktionieren?

Delphi-Quellcode:

...
  except
    on E: Exception do 
    Begin 
      raise Exception.Create('Fehler beim Öffnen der Tabellen!');
      DataMod.T_ABFBaum.Destroy;
      DataMod.Q_ArtLief.Destroy;
      DataMod.T_ArtMenge.Destroy;
      DataMod.Q_StckList.Destroy;
      DataMod.T_ArtMenge_StckList.Destroy;
     DataMod.Q_Hersteller.Destroy;
  End;
end;