exportar a excel mas rapido.

[kapcomx]

Buen dia amigos del Foro, Pues les comento mi situación, actualmente tengo un sistema en delphi 7 que trabaja com mysql 5.0 y un wamp server 5 el cual genera reportes impresos y en algunos casos tiene que enviar la info a excel.

para lo cual utilizo los componentes excelaplication, excelWorkBook y ExcelWorkSheet.

el codigo es algo asi:

//conecto
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
ExcelWorksheet1.ConnectTo(ExcelApplication1.Sheets[1] as _WorkSheet);

//escribo
EXCELWORKSHEET1.Cells.ITEM[2,1].VALUE:='REPORTE DE PAGOS: ';


//utilizo un while para pasar el resultado de la consulta
While Not (QUERY1.EOF) do
begin
With ExcelWorksheet1.Cells do
begin
if (QUERY1.FieldValues['FOLIO']=null) then
Item[Fila,1].Value :=' '
else
BEGIN
T:=(QUERY1.FieldValues['FOLIO']);
Item[Fila,1].Value :=T;
END;
.
.
.
QUERY1.Next;
fila:=fila+1;
end;
end;

cuando empezo a operar el sistema hace como un año no habia tanto problema, el problema es ahora que hablamos de casi diez mil folios........
se tarda

he visto en el phpadmin que cuando exportas una tabla lo hace casi de inmediato sin importar que tenga mas de diez mil folios.....

quisiera que me pudieran decir de que otra manera puedo exportar a excel mas rapido.

De antemano les agradezco la atención y les envio un saludo