я делаю это так:

Private
Excel, Sheet: variant

Проверяем не запущен ли Excel
++++++++++++++++++++++++++++++
function Tmtrglav.ExistExcel(FileNameXLS: string):Variant;
var
VarExcel: variant;
iWb, CountWb: Integer;
begin
try
try
VarExcel:=GetActiveOleObject('Excel.Application');
CountWb:=VarExcel.Workbooks.Count;
for iWb:=1 to CountWb do begin
if VarExcel.Workbooks[iWb].Name=FileNameXLS then begin
VarExcel.Worcbooks[iWb].Close;
repeat
until VarExcel.Workbooks.Count<CountWb;
CountWb:=VarExcel.Workbooks.Count;
end{if};
end{for};
Result:=VarExcel;
except
Result:=CreateOleObject('Excel.Application');
end{try};
except
MessageDlg('На компьютере отсутствует Microsoft Excel.',mtError,[mbOk],0);
Result:=null;
end{try}
end{func};

++++++++++++++Вызов

NewFileOt:=ExtractFilePath(Application.ExeName) +'XLS\'+'my.xls';

Excel:=ExistExcel(NewFileOt);
if VarIsNull(Excel) then exit;
Excel.visible:=true;
Excel.Workbooks.Open(NewFileOt);
Sheet:=Excel.Sheets;

Ну а дальше примерно так:

ADOQuery1.First;
while not ADOQuery1.Eof do
begin
Sheet.Cells[Row,1] := FieldByName('cod').AsInteger;
Sheet.Cells[Row,2] := FieldByName('тфьу').AsString;
ADOQuery1.Next

end;
ну и т.д.