var

    Eclapp： variant；

    n： integer；

    filename： string；

    t1，t2： Int64；

    begin

    Eclapp ：= CreateOleObject('Excel.Application')；

    Eclapp.WorkBooks.Add；

    Eclapp.Visible：= False；

    filename ：='d：＼数据1.xls'；

    lbl2.Caption ：= '0'；

    if FileExists(fileName) then

    DeleteFile(fileName)；

    t1：= GetTickCount；

    qry1.DisableControls；

    qry1.First；

    n：=2；

    while not qry1.Eof do

    begin

    eclapp.cells[n ......