从新构造数据集时报错，不知是哪错了，有经验的帮忙看看

重新构造数据集时报错，不知是哪错了，有经验的帮忙看看！

function TModuleManage.NewSearchData(dt:Tdataset): TDataset;

var mydt:Tdataset;i:Integer;MyTable:TClientDataSet;j:Integer;

begin

  mydt:=tdataset.Create(nil);

  mydt.FieldDefs.Add('ck',ftBoolean);

  for I := 0 to dt.FieldDefs.Count - 1 do

  begin

    mydt.FieldDefs.Add(dt.FieldDefs[i].Name,ftString);

  end;

  MyTable:=TClientDataSet.Create(Application);

  MyTable.FieldDefs.Assign(mydt.FieldDefs);

  MyTable.CreateDataSet;    {报错：无效参数}


  mydt:=MyTable as TDataSet;

  mydt.Open;

  with mydt do

  begin

    dt.Open;

    dt.First;

    while not dt.Eof do

    begin

      Append;

      mydt.FieldByName('ck').AsString:='1';

      mydt.FieldByName('FormName').AsString:=dt.FieldByName('FormName').AsString;

      mydt.FieldByName('FormCaption').AsString:=dt.FieldByName('FormCaption').AsString;

      mydt.FieldByName('regist').AsString:=dt.FieldByName('regist').AsString;

      Post;

      dt.Next;

    end;

  end;

  laji.Add(MyTable);

  laji.Add(mydt);

  Result:=mydt;

end;

运行到MyTable.CreateDataSet;这行的时候报了个“无效参数的错误”，没有用到什么参数啊。。。。。
------解决方案--------------------
在我这里，调试通过啊，没有你说的那个提示