请教：网络例子调试出错

Question

出错1：
未申报的标识符 'vararraylock' ，
 
procedure TRDM.S_Add(var v_pkg: OleVariant);
var  Data: PChar;
begin
  try
    Data := VarArrayLock(v_pkg);
    try
      Move(Data^, FInpkg, SPackageLength);
    finally
      VarArrayUnlock(v_pkg);
    end;    DM.S_Add(FInpkg);  except
    On E: Exception do begin
      Raise;
    end;
  end;
end;
[Error] RDMUnit.pas(74): Undeclared identifier: 'VarArrayLock'
出错2：
未申报的标识符 'VarArrayCreate' 
procedure TS_AddForm.ButtonOkClick(Sender: TObject);
var pkg:TSPackage;
    Inpkg:TSPkgData;
    vo: OleVariant;
    Data: PChar;
begin
  {确认}
  if Eage.Text = '' then Eage.Text:='0';  {打包数据}
  pkg := TSPackage.Create;  pkg.Item['name']:=Ename.Text; //*学员姓名*/
  pkg.Item['sex']:=Esex.Text; //*性别*/
  pkg.Item['grade']:=Egrade.Text; //*入学年度*/
  pkg.Item['native']:=Enative.Text; //*籍贯*/
  pkg.Item['identity']:=Eidentity.Text; //*身份证编号*/
  pkg.Item['age']:=Eage.Text; //*年龄*/  pkg.GetPacket(Inpkg);
  pkg.Free;
  {发送数据包 ...}
  vo := VarArrayCreate([0, SPackageLength-1], varByte);
  Data := VarArrayLock(vo);
  try
    Move(Inpkg,Data^, SPackageLength);
  finally
    VarArrayUnlock(vo);
  end;  CDM.DCOMConnectionStudent.AppServer.S_Add(vo);  ModalResult := mrOK;end;[Error] S_AddUnit.pas(64): Undeclared identifier: 'VarArrayCreate'
 

Answer 1

未申报的标识符 'vararraylock' ，
正在学习midas,多层结构，有一个例子，调试不好？