procedure TExecThread.Execute;
begin
 FreeOnTerminate:=True;
 //Synchronize( DoExecAndWait)
 DoExecAndWait

end;

procedure TExecThread.DoExecAndWait;
var SI : TShellExecuteINfo;
begin
 si.lpFile:='';
 si.cbSize:=sizeof(Si);
 si.lpVerb:='open';
 si.nShow:=SW_NORMAL;
 si.fmask := SEE_MASK_NOCLOSEPROCESS;
 si.lpFile:=PWideChar(PlanArray[GetCurrentParam].CmdLine);
 si.lpParameters:=PWideChar(PlanArray[GetCurrentParam].cmdParam);
try
 if  ShellExecuteEx(@si) then
 begin
  WaitForSingleObject(si.hProcess, INFINITE);
  if PSStatus.OutPut = 1 then MainForm.OnOffButtonClick(self);
   MainForm.TaskMemo.Lines.Add('Запуск  выполнен успешно. Файл: ' + PlanArray[GetCurrentParam].CmdLine);
 end
except
  MainForm.TaskMemo.Lines.Add('Ошибка запуска. Файл: ' + PlanArray[GetCurrentParam].CmdLine);
end;

  repeat
     try
      Application.ProcessMessages;
      GetExitCodeProcess(Si.hProcess, ExitCode);
     except
        {do nothing}
     end;
    until (ExitCode <> STILL_ACTIVE) or Application.Terminated;