procedure TDataModule1.DataModuleCreate(Sender: TObject);
var
  strFlib    : String;       //ライブラリ名格納用
  memIniFile : TMemIniFile;  //INIファイル
begin
  //DB接続
  if dbAS.Connected = True then
    dbAS.Connected := False;
  try
   //パラメーターをINIファイルより取得
    dbAS.Params.LoadFromFile('DB.ini');
    dbAS.Connected := True;
  except
    dbAS.Connected := False;
    Exit;
  end;
  //AS400接続
  try
    AS400.Connect;
  except
    AS400.Disconnect;
    dbAS.Connected := False;
    Exit;
  end;
  //AS400環境設定(CL呼び出し)
  //ライブラリ名をINIファイルより取得
  memIniFile := TMemIniFile.Create('CALL400.ini');
  strFlib := memIniFile.ReadString('CALL400','LIB','');
  memIniFile.Free;
  //ライブラリ名をセット
  CALL400MENU.LibraryName := strFlib;
  //CL実行
  try
    CALL400MENU.Execute;
  except
    AS400.Disconnect;
    dbAS.Connected := False;
    Exit;
  end;
end;