abrir excel

Olha este exemplo eu usei para abrir um TXT, de repente ajude em alguma coisa...

if Perguntar(´Impressão´, ´Geração do arquivo concluída!´ + #13 +
´Deseja abrir este arquivo?´, SIM_NAO, PERGUNTA) = SIM then
begin
ExecuteFile(Nome_Arquivo,´´,´´,SW_SHOW);
end;

Esqueci de dizer..
Vc tem que por este cara no uses
FmxUtils

Olha eu fiz assim e funcionou...

procedure TForm1.Button1Click(Sender: TObject);
var
Nome_Arquivo : String;
begin
Nome_Arquivo := ´C:\Teste.xls´;
ExecuteFile(Nome_Arquivo,´´,´´,SW_SHOW);
end;