procedure test(Sender: TObject);
var
   iTaxARID: OleVariant;
begin
 iTaxARID := test.GetID;
  sResult := DataModule.RemoteServer.AppServer.test1(iTaxARID);
end;    function test.GetID : variant;
var SelectedItem : variant;
    i            : integer;
begin
  For i=0 to 2 do
  SelectedItem[ i ]   := 1;
  end;
  result := SelectedItem;
end;    server端
function test1(iTaxARID: OleVariant): WideString;
var i
begin
  i:=0; 
  showmessage(iTaxARID[i] );
end;