Executando um programa do windows

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:MSOfficeExcelExcel.Exe', 'Contas.Xls');