problemilla con la exportación a excel

[Apetelinau]

Hola.
Tengo que crear una tabla de datos con los resultados de una fft y me gustaria exportarla a excel para que el usuario haga lo que le dá la gana.

He estado navegando por los otros hilos y he visto multitud de opciones, pero siempre que creo un fichero con CreateOLEObject me sale "transparente", es decir, cuando intento abrirlo con el excel me sale solo el menu y las barras de herramientas, pero ninguna hoja.
He ido simplificando cada vez más el código, pero incluso con esto no veo nada

Código Delphi [-]
var
  Excel: OleVariant;
  Libro: OleVariant;
  Hoja: OleVariant;

begin
  Excel := ComObj.CreateOleObject('Excel.Application');
  Libro := Excel.WorkBooks.Add;
  Hoja := Libro.ActiveSheet;
  Hoja.Cells[1, 1] := 'Hola mundo';

  Libro.SaveAs('ejemplo.xls');
  Excel.Quit;
end;

¿Alguien sabe que puede estar pasando?
Gracias.

[marcoszorrilla]

Comprobado que este código que te adjunto funciona:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ComObj,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  excel:Variant;
  hoja:OleVariant;
  libro:OleVariant;

begin
  try
    excel:=CreateOleObject('Excel.Application');
  except
    ShowMessage('Excel no se pudo iniciar.');
    exit;
  end;
  excel.Visible:=true;
  excel.Workbooks.Add;

  Libro := Excel.WorkBooks.Add;
  Hoja := Libro.ActiveSheet;
  Hoja.Cells[1, 1] := 'Hola mundo';

  Libro.SaveAs('ejemplo.xls');
  Excel.Quit;

end;

end.

Un Saludo.

[Apetelinau]

Gracias...

Confirmado, he probado el fichero ejemplo en el portatil y resulta que es culpa de mi office...

Hubiera podido morirme si no se me ocurre comprobarlo.
Salu2.