Помогите, пожалуйста!
Необходимо написать трезвенное приложение для курсовой работы (CORBA). Для начала хочу увидеть набор данных в клиенте. Создаю idl – файл:
interface MyServer {

 any getAdres();
 any detDolg();
 any SetOplata();

};

Создаю серверное приложение File-New-Other-Corba – Corba Server Application.
var
 fmServer: TfmServer;

implementation

uses DServer;

{$R *.DFM}

procedure TfmServer.InitCorba;
begin
 CorbaInitialize;

 // Add CORBA server code here like this
 // Acct := TAccountSkeleton.Create('Jack B Quick', TAccount.Create);
 // BOA.ObjIsReady(Acct as _Object);
 myServ:=TMyServerSkeleton.Create('Mu Server',TMyServer.Create);
 BOA.ObjIsReady(MyServ as _Object);
end;

procedure TfmServer.FormCreate(Sender: TObject);
begin
  InitCorba;
end;

end.

Добавляю модуль данных, в который помещаю ADO Connect, ADO SQL, DataSetProvider

В файле My_Server_impl описываю мeтод:
function  TMyServer.getAdres : Any;
begin
 { *************************** }
 { *** User code goes here *** }
 { *************************** }
DServer.dmServer.qryAdres.Open;
Result:=DServer.dmServer. DataSetProvider.Data;
end;
Создаю клиентское приложение, в котором по нажатию на кнопку должен показаться набор данных.
Размещаю грид, DataSource, ClientDataSet
var
 fmKlient: TfmKlient;

implementation

uses DMain, FLogin, FKart;

{$R *.DFM}

procedure TfmKlient.InitCorba;
begin
 CorbaInitialize;
 // Bind to the Corba server like this
 // Acct := TAccountHelper.bind;
 var1:=TMyServerHelper.Bind;
end;

procedure TfmKlient.Button1Click(Sender: TObject);
begin
  ClientDataSet.Data:=var1.getAdres;
  ClientDataSet.Open;
end;

procedure TfmKlient.FormCreate(Sender: TObject);
begin
  InitCorba;
end;

end.

Запускаю Smart Agent, Серверное приложение, клиентское приложение.
При нажатии на кнопку получаю ошибку BAD OPERATION.
Подскажите, пожалуйста, как правильно построить такое приложение.