No si aun te sirva, tenia el mismo problema y lo solucione con este articulo. Buenisimo y rapidisimo.
https://www.clubdelphi.com/foros/sho...portar+a+excel
En el caso mio lo cambie a:
Código Delphi
[-]
procedure TFlis_estu_med.manda_xls;
var o_Excel,o_Libro, o_Hoja : OleVariant;
begin
o_Excel := CreateOleObject('Excel.Application');
o_Libro := o_Excel.Workbooks.Add;
o_Hoja := o_Libro.Worksheets.Add;
o_hoja.range['A1']:='Medico';
o_hoja.range['B1']:='Paciente';
o_hoja.range['C1']:='Fecha';
o_hoja.range['D1']:='Hora';
o_hoja.range['E1']:='Valor';
o_Hoja.Range['A2'].CopyFromRecordset(q2_det.Recordset);
o_Excel.Visible := True;
end;
El q2_det por si acaso es el ado query del rad xe10