ClientDataSet get data through Application Server

function TForm1.SQLGetInfo(SQLText: string): OleVariant;
var
  Conn: TDCOMConnection;
  CDS: TClientDataSet;
begin
  Conn := TDCOMConnection.Create(Self);
  CDS := TClientDataSet.Create(Self);

  try
    Conn.ComputerName := '127.0.0.1';
    Conn.ServerName := 'MyCOMLib.MyObj';

    CDS.RemoteServer := Conn;
    CDS.ProviderName := 'dspGeneral';
    CDS.CommandText := SQLText;
    CDS.Open;
    Result := CDS.Data;
  finally
    FreeAndNil(Conn);
    FreeAndNil(CDS);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientDataSet1.Data := SQLGetInfo('select * from SaleOrders');
end;