// Параметры процесса
 GetStartupInfo(lpStartupInfo);
 lpStartupInfo.cb := sizeof(TStartupInfo);
 lpStartupInfo.dwFlags :=
   STARTF_USESHOWWINDOW
 + STARTF_USESIZE + STARTF_USECOUNTCHARS {+ STARTF_USESTDHANDLES};
 lpStartupInfo.wShowWindow := SW_SHOWDEFAULT;
 case WinSizeType of
   0 : begin WinX := 132; WinY := 60; end;
   1 : begin WinX := 80; WinY := 50; end;
   2 : begin WinX := 80; WinY := 25; end;
   3 : begin WinX := 152; WinY := 76; end;
   4 : begin WinX := 110; WinY := 40; end;
   5 : begin WinX := edSizeWidth.AsInteger; WinY := edSizeHigh.AsInteger; end;
 else
   WinX := 80; WinY := 25;
 end;
 // lpStartupInfo.dwXSize := WinX * 8;
 lpStartupInfo.dwXSize := WinX * 10;
 lpStartupInfo.dwXCountChars := WinX;
 // lpStartupInfo.dwYSize := WinY * 12;
 lpStartupInfo.dwYSize := WinY * 18;
 lpStartupInfo.dwYCountChars := WinY;
 lpStartupInfo.lpTitle := PChar(EXEFileName);
 {
 lpStartupInfo.hStdOutput := ChildStdOutWr;
 lpStartupInfo.hStdError  := ChildStdOutWr;
 }
 // Диалог с параметрами, если надо
 if edIsShowCmd.Checked then begin
   if (ShowDialog('Запуск модуля'
   , RunParams + #13#10
   + #13#10
   + 'Рабочий каталог :' + #13#10 + WorkFolder + #13#10
   + #13#10
   + 'Запускать ?'
   , sdiConfirm, ['&Да', '&Нет']) <> 1) then Exit;
 end;
 if not CreateProcess(
   nil
  ,PChar(RunParams)
  ,nil
  ,nil
  ,False
  ,0                // creation flags
  ,nil      // pointer to new environment block
  ,PChar(WorkPath) // pointer to current directory name
  ,lpStartupInfo    // pointer to STARTUPINFO
  ,lpProcessInformation // pointer to PROCESS_INFORMATION
 )
 then Exception.Create('Ошибка при выполнении командной строки ' + #13#10 + RunParams);