Executar um comando e esperar ele ser finalizado

Pega essa função que eu fiz, adaptado de um livro...

procedure ExecutaAplicativoEsperando(LinhaComando: string);
var StartupInfo: TStartupInfo;
ProcessInformation: TProcessInformation;
rc: Boolean;
begin
FillChar(StartupInfo, SizeOf(StartupInfo), #0);
with StartupInfo do
cb := SizeOf(StartupInfo);
rc := CreateProcess(nil, PChar(LinhaComando), nil, nil, false,
NORMAL_PRIORITY_CLASS, nil,
nil, StartupInfo, ProcessInformation);
if rc then
WaitForSingleObject(ProcessInformation.hProcess, INFINITE)
else
raise Exception.Create(LinhaComando+13+´ não encontrado neste computador´);
end;

Obrigado