مشكل در اجراي متد در برنامه تحت شبكه(method. .... not supported by automation object)

[mydelphi]

با سلام من در اجراي متد بروي سرور به مشكل برخودرد كردم(البته هر دستور دیگه مثل گرفتن ساعت و تاریخ هم باشه با این پیام مواجه می شم‌...) دوستان كسي ميتونه كمك كنه .... ممنون
در سمت سرور:

function TAdminAutomation.SqlRun(var Sender: WideString): Shortint;

begin

  try

    Query1.Active:=False;

    Query1.SQL.Clear;

    Query1.SQL.Add(Sender);

    Query1.Active:=True;

    Result:=0;

  except

    Result:=1;

  end;

end;

در سمت كلاينت

  ClientDataSet1.Active:=False;

  ClientDataSet1.CommandText:='';

  SocketConnection1.Connected:=True;

  SocketConnection1.AppServer.SqlRun('SELECT * FROM users');

  ClientDataSet1.Active:=True;

ايراد:
Untitled.jpg