Calculadora - Urgente!!

Winexec(´C:\WINNT\System32\calc.exe´, SW_SHOW);

uses Shellapi

procedure ExecutePrograma(Nome, Parametros: String);
Var
Comando: Array[0..1024] of Char;
Parms: Array[0..1024] of Char;
begin
StrPCopy (Comando, Nome);
StrPCopy (Parms, Parametros);
ShellExecute (0, Nil, Comando, Parms, Nil, SW_ShowMaximized);
end;

Para rodar ela:

ExecutePrograma(´WinWord.Exe, ´´);
ou se quiser rodar um documento ou arquivo:

ExecutePrograma (´C:\MSOffice\Excel\Excel.Exe´, ´Contas.Xls´);