Error al exportar a excel

[weke]

Buenas a todos.

Tengo un problema a la hora de exportar una lista a excel. Lo que pasa es que el error solo me lo da cuando la lista es muy grande. Con unos 2000 elementos no hay problema, pero cuando son unos 3000 me da error.
El código que utilizo es el siguiente:

var
  Excel,xlw : Variant;
  fichero,temp : String;
  i,j : integer;
  creado:boolean;
  l1 : TListItem;
  MisDoc,XLSFILE:string;
begin
F_MAIN.Cursor:=crhourglass;
TRY
  save.Title :='Exportar Incidencias';
  save.FileName:='';
  save.Execute;
  XLSFILE:=save.FileName;
  if XLSFILE <> '' then
  begin
	  i:=0;
	  j:=0;
	  creado:=false;
		try
	  begin
		Excel := CreateOLEObject('Excel.Application');
	//	Excel.WorkBooks.Add;
		xlw:=Excel.WorkBooks.add;
		creado:=true;
	  end;
	  except
	  begin
		Excel.Quit;
		raise;
	  end;
	  end;  //fin try
	//***** RECORREMOS EL LISTVIEW E INSERTAMOS LOS DATOS EN EL OBJETO EXCEL *****//
	  Excel.Cells[1,1].Value:='"Fecha"';
	  Excel.Cells[1,2].Value:='"Evento"';
	  Excel.Cells[1,3].Value:='"Puerta"';
	  Excel.Cells[1,4].Value:='"Descripcion"';
	  while (i < Lista_incidencias.Items.Count) do
	  begin
		while (j < 4) do
		begin
		  try
		  begin
			  //***** Acceso a las celdas *****//
			Excel.Cells[i+2,j+1].Value:=Lista_incidencias.Items[i].SubItems.strings[j];
			j:=j+1;
		  end;
		  except
		  begin
			Excel.Quit;
			creado:=false;
			raise;
		  end;
		  end;
		end;
		i:=i+1;
		j:=0;
	  end;  //fin while
	//***** GUARDAMOS EL OBJETO EXCEL *****//
	  if (creado = true) then
	  begin
	   TRY
		  xlw.SaveAs(FileName:=XLSFILE, Password := '');
	//	  Excel.Save;
	   FINALLY
		  Excel.Quit;
	   END;  //fin try
	  end else Excel.Quit;
  end;
end;

No se si cometo algún error Espero que me puedan ayudar un poquillo.
Muchas gracias a todos y Saludos.

[Neftali [Germán.Estévez]]

Aparte de que podamos ser más o menos adivinos...¿Cual es el error que te da?

[weke]

Disculparme, es que ayer con las prisas se me paso poner el error.

Me decía que estaba fuera de rango. El problema estaba en la lista, que cuando hacía la inserción, cada vez introducía unos datos y no me había dado cuenta que en algunas ocasiones introducía menos campos. Por eso me decía que estaba fuera de rango, porque no estaban los SubItems de la lista.

Muchas gracias y saludos.

[Neftali [Germán.Estévez]]

Entonces, ¿ya está solucionado?

[weke]

Si, ya está solucionado el problema.