データモジュールのDestory（アプリケーション終了時に発生）時の処理を記述します。
procedure TDataModule1.DataModuleDestroy(Sender: TObject); begin //AS400切断 AS400.Disconnect; //DB切断 if dbAS.Connected = True then dbAS.Connected := False; end;
