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']:='Código';
o_hoja.range['B1']:='Nombre';
o_hoja.range['C1']:='Fecha';
o_hoja.range['D1']:='Valor';
o_hoja.range['E1']:='Estado';
...
end;