创建一个暂时的checkbox字段

创建一个临时的checkbox字段。
clientdataset是这样创建的，ok

  var

    NewField:TField;

    i:Integer;

  begin

    with cds do

    begin

      close;


      //创建checkbox字段

      for i:=0 to Fields.Count-1 do

        Fields[0].Free;


      (MainDataModule.RORemoteService as IFormationApplyService).GetPerson(Aunitid,Atype,dt);

      cds.Data := dt;


      Close;


      for i:=0 to cds.FieldDefs.Count-1 do

        FieldDefs.Items[i].CreateField(cds);

      NewField:=TBooleanField.Create(cds);

      NewField.FieldName := 'checkbox';

      NewField.FieldKind:= fkInternalCalc;

      NewField.DataSet:=cds;

      Open;

    end;

  end;

但现在用的是unidac了，也这样创建，但报错说‘Field ‘checkbox’not found’，请问uniquery该如何创建？
------解决方案--------------------
创建计算字段看看