TDBXDataSetReader.CopyReaderToClientDataSet ?

[rc.1990]

Using TSQLQuery, how could I convert this Delphi logic to Lazarus 1.0.14?

function TClientDAO.Query: OleVariant;
var
  FConnection: TDBXConnection;
  FCommand: TDBXCommand;
  PeopleData: TClientDataSet;
begin
  PeopleData := TClientDataSet.Create(nil);
  try
    FCommand.Text := 'select id, name, telephone from people';
    TDBXDataSetReader.CopyReaderToClientDataSet(FCommand.ExecuteQuery, PeopleData);
    // return data as 'OleVariant'
    result := PeopleData.Data;
  finally
    FreeAndNil(PeopleData);
  end;
end;

Thanks in advance.