//フォーム作成イベント コンストラクタ
procedure TForm1.FormCreate(Sender: TObject);
begin
  try
    AS4001.Userid:='QPGMR';   //AS400　ユーザ名
    AS4001.PWD:='QPGMR';      //AS400　パスワード
    AS4001.Active:=True;      //AS400　接続
    //CUSTOMERファイルをQTMPにCUSTOMERファイルを作成する
    AS4001.RemoteCmd('CPYF FROMFILE(D400SMP/CUSTOMER) TOFILE(QTEMP/CUSTOMER) CRTFILE(*YES)');
  except
    //エラーが発生した場合はメッセージを表示
    ShowMessage('初期化エラー');
  end;
end;

QTempにあるファイルを指定するときには、次のように「QTemp/ファイル名」というように「/」（スラッシュ）で区切ります。