Ejecutar

var
vProces: String
stInfo: TStartupInfo;
pInfo: TProcessInformation;
begin
with stInfo do begin
cb := sizeof(stInfo);
lpReserved := nil;
lpDesktop := nil;
lpTitle := nil;
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := SW_SHOW;
cbReserved2 := 0;
lpReserved2 := nil;
end;
vProces := 'MiProg.exe param1 param2';
CreateProcess(nil, PChar(vProces), nil, nil, True, 0, nil, nil, stInfo, pInfo);
// Con esta línea esperas que el programa a ejecutar finalice, si no la pones tu aplicación continuará ejecutándose a la vez que la nueva
WaitForSingleObject(pInfo.hProcess, INFINITE);
end;