[ANCELMO]

En resumen es este se hace una consulta a base de datos pero cuando exproto los datos llega a cierta cantidad de registros aunque recorre todo el query no muestra la totalidad

Código Delphi [-]
varApuLibLec_g := varApuExcObj_g.Workbooks.Open(chrNombArch__p);
varApuHojLec_g := varApuLibLec_g.Worksheets[1];
intLCID______g := LOCALE_USER_DEFAULT;
 ovaTemplate__g  := xlWBATWorksheet;
 wboExcePrinc_ := TExcelWorkbook.Create(Nil);
 wshExcePrinc_ := TExcelWorksheet.Create(Nil);
  excPrincipal.ConnectKind := ckNewInstance;
  excPrincipal.Connect;
  wboExcePrinc_.ConnectTo(excPrincipal.Workbooks.Add(ovaTemplate__g, intLCID______g));
  wshExcePrinc_.ConnectTo(excPrincipal.Worksheets[1] as _Worksheet);

  if chrNombHoja__g = '' then
  begin
    chrNombHoja__g := 'Hoja';
  end;
  intContHoja__g := 1;
  wshExcePrinc_.Name := chrNombHoja__g+inttostr(intContHoja__g);