ADODataSet1.ConnectionString := 'Provider=ADsDSOObject';

  ADODataSet1.CommandText := 'select cn, distinguishedname from ''LDAP://HOME'' where objectClass=''*''';

  ADODataSet1.Open;

  ADODataSet1.Recordset.PageSize :=40; // << Edit

  FDMemTable1.CopyDataSet(ADODataSet1, [coStructure, coRestart, coAppend]);

  FDMemTable1.Open;