Datenbankfehler Programm bleibt im Speicher

[Andreas13]

ich habe meinen ersten Code vor einiger Zeit korrigiert... So müßte es 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;