procedure TfrmShohin.FormCreate(Sender: TObject);
begin
  //QTemp内にワークファイルを作成(CLプログラム呼び出し)
  with Cal400CRTWK do
  begin
    //AS400指定
    AS400 := DataModule1.AS400;
    //パラメータ初期化
    Value[0] := '';
    //CLプログラム実行
    try
      Execute;
    except
      MessageDlg('ワークファイルの作成が実行できません。',
         mtInformation,[mbOK],0);
    Exit;
    end;
    //戻り値をチェック
    if Value[0] <> '' then
    begin
      MessageDlg('ワークファイルが作成できませんでした。',
         mtInformation,[mbOK],0);
      Exit;
    end;
  end;
end;