客户端调用服务端的方法是报错'method ***** not supported by automation object' 自动化对象不支持该方法？怎么回事

肯定客户端没错，服务端有问题
客户端的调用
procedure TForm1.Button1Click(Sender: TObject);
var
  rr:OleVariant;
  myRec:TARec;
begin
  if not con1.Connected then
     con1.Open;
  rr := con1.AppServer.GetRec//这句就报错了
  myRec := VariantToRecord2(con1.AppServer.GetRec);
  edt1.Text := myRec.Name;
  edt2.Text := IntToStr(myRec.age);
end;
服务端的
function Trecoredpass.GetRec: OleVariant;
var
  myRec1:TARec;
begin
  myRec1.Name := '中英Chinese';
  myRec1.Age := 34;
  Result := RecordToVariant2(myRec1);
end;