ShellExecute упаковка в WinXP выдаёт ошибку

S_N:=S_NameFileFIGURE+'.rar';
a := Pchar(ExtractFilePath(ParamStr(0))+'RaskFigMem\'+S_N);
b := Pchar(ExtractFilePath(ParamStr(0))+'RaskFigMem\');
ShellExecute(0, 'open', 'winrar.exe', pchar('e -y '+a+' '+b), nil, SW_show);

s_rar_Mask:=S_Mask+'.bmp';
b := Pchar(ExtractFilePath(ParamStr(0))+'RaskFigMem\'+s_rar_Mask);
   ShellExecute(0, 'open', 'WinRAR.exe', Pchar('a -r -ep1 '+a+' '+b), nil, SW_SHOW);

procedure TFormSapr.ColorBtn22Click(Sender: TObject);   // 1  SAVE
var
   S:string;
   i,j:integer;
   a,b,CCC:PChar;
   s_rar_Mask:string;
   S_Mask:string;
//   Msg:string;
    Zip: TFWZipWriter;
    ZIPDIR:string;
    PresentFiles: TStringList;
    SR: TSearchRec;
    BuildZipResult: TBuildZipResult;
 
procedure CheckResult(Value: Integer);
begin
  if Value < 0 then
    raise Exception.Create('Ошибка добавления данных');
end;
 
 
procedure RunCommand(s: string; WorkDir:string);
var
    si: TStartupInfo;
    pi: TProcessInformation;
begin
    //подготовливаем записи si и pi к использованию
    FillChar(si, SizeOf(si), 0);
    si.cb := SizeOf(si);
    //si.wShowWindow := SW_SHOWMAXIMIZED    ;
 
    FillChar(pi, SizeOf(pi), 0);
    si.wShowWindow:=SW_HIDE;
    //попытаемся запустить рар
    if CreateProcess(nil,pchar(s),
    nil, nil, //безопасность по умолчанию
    false,    //не наследовать хэндлов
    0,        //флаги создания по умолчанию
    nil,      //переменные среды по умолчанию
    PChar(WorkDir),      //текущая директория по умолчанию
    si,       //стартовая информация
    pi)       //а в эту запись получим информацию о созданом процессе
    then
    begin
        //удалось запустить рар
        //подождем пока рар работает
        WaitForSingleObject(pi.hProcess, INFINITE);
        //убираем мусор
 
        CloseHandle(pi.hProcess);
        CloseHandle(pi.hThread);
    end
    else
        //выдаем сообщение об ощибке
        MessageDlg(SysErrorMessage(GetLastError), mtError, [mbOK], 0);
end;
 
//Handle := CreateProcess(nil, PChar('cmd.exe /C ' + CommandLine), nil, nil, True, 0, nil, PChar(WorkDir), SI, PI);
 
procedure ClickLeftMousePoTabSheetRaskRo;
var
  p: TPoint;
  k,m:integer;
 
begin
  k:=Panel_Visual_Raskroj2.W_ div 2;
  m:=Panel_Visual_Raskroj2.H_ div 2;
    p:=Types.Point(k,m);
    p:=Panel_Visual_Raskroj2.ClientToScreen(p);
    SetCursorPos(p.x, p.y);
    p := Types.Point(round(p.x*65535/Panel_Visual_Raskroj2.W_),round(p.y*65535/Panel_Visual_Raskroj2.H_));
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, p.x, p.y, 0, 0);
    Application.ProcessMessages;
    sleep(300);
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, p.x, p.y, 0, 0);
    Application.ProcessMessages;
  sleep(300);
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, p.x, p.y, 0, 0);
end;
 
 
begin
    S:=EKVID.Text;
    EKVID.Text:='0';
    if FormSapr.Panel_Visual_Raskroj1<>nil then
      Panel_Visual_Raskroj1.WMPaint(Msg1)
    else
      Panel_Visual_Raskroj2.WMPaint(Msg1);
 
     SAVE_FIGURE(S_Mask); // Запись всех фигур
      EKVID.Text:=S;
  if FormSapr.Panel_Visual_Raskroj1<>nil then
     S:=ExtractFilePath(ParamStr(0))+'RaskFigMem\'+Name_EXCEL+'.xls'
  else
     S:=ExtractFilePath(ParamStr(0))+'RaskFigMem\'+Name_EXCEL+'.xlsx';
 
     if Length(SName_EXCEL)=1 then
     begin
           SetLength(SName_EXCEL,Length(SName_EXCEL)+StringGrid1.RowCount {k});
           j:=Length(SName_EXCEL);
           for i:=0 to j-1 do
           SName_EXCEL[i]:=StringGrid1.Cells[3, i];
     end;
     SaveAsExcelFile(stringGrid1, S, LMDLabel_Message, Panel_Flash_STOP,KV_StringGrida);
     Panel8.Width:=546; //476
     ClickLeftMousePoTabSheetRaskRo;
 
     Application.ProcessMessages;
     sleep(300);
 
     Label_NameRar.Caption:='Идёт архивирование данных. Ждите';
     Application.ProcessMessages;
     sleep(300);
//*******************************
//   RunCommand('rar.exe a -m5'+' '+'C:\SAPR\RaskFigMem\MMMNNN'+' ..\*.xlsx ..\*.bmp ..\*.eb ..\*.ebook ..\*.txt','C:\SAPR\RaskFigMem\');
 
 
//*******************************
if S_Mask='' then
   S_Mask:='Origin';
 
a := Pchar(ExtractFilePath(ParamStr(0))+'RaskFigMem\'+S_Mask+'.rar'); // В папку Origin.rar
  if FormSapr.Panel_Visual_Raskroj1<>nil then
      s_rar_Mask:=S_Mask+'.xls'
  else
      s_rar_Mask:=S_Mask+'.xlsx';
b := Pchar(ExtractFilePath(ParamStr(0))+'RaskFigMem\'+s_rar_Mask);
CCC:=b;
      ShellExecuteA(0, 'open', 'WinRAR.exe', Pchar('a -r -ep1 '+a+' '+b), nil, SW_SHOW);
Sleep(1000);
 
//if DirectoryExists(ExtractFilePath(ParamStr(0))+'RaskFigMem\') then
//   DeleteFile(b);
 
 
//ShellExecute(0, 'open', CCC, nil, nil, SW_SHOWDEFAULT);  // Открыть xlsx
 
s_rar_Mask:=S_Mask+'.bmp';
b := Pchar(ExtractFilePath(ParamStr(0))+'RaskFigMem\'+s_rar_Mask);
    ShellExecuteA(0, 'open', 'WinRAR.exe', Pchar('a -r -ep1 '+a+' '+b), nil, SW_SHOW);
 
                              //        SaveToArchive(a,'', b, Msg, FormSapr);  // RarFileName - полное имя (если расширения нет, то добавится .rar)
Sleep(1000);
 
s_rar_Mask:='test'+S_Mask+'.ebook';
b := Pchar(ExtractFilePath(ParamStr(0))+'RaskFigMem\'+s_rar_Mask);
      ShellExecuteA(0, 'open', 'WinRAR.exe', Pchar('a -r -ep1 '+a+' '+b), nil, SW_SHOW);
Sleep(1000);
if DirectoryExists(ExtractFilePath(ParamStr(0))+'RaskFigMem\') then
   DeleteFile(b);
 
s_rar_Mask:='test'+S_Mask+'_Chetchik.eb';
b := Pchar(ExtractFilePath(ParamStr(0))+'RaskFigMem\'+s_rar_Mask);
      ShellExecuteA(0, 'open', 'WinRAR.exe', Pchar('a -r -ep1 '+a+' '+b), nil, SW_SHOW);
Sleep(1000);
if DirectoryExists(ExtractFilePath(ParamStr(0))+'RaskFigMem\') then
   DeleteFile(b);
 
s_rar_Mask:='KVKOL'+S_Mask+'.txt';
b := Pchar(ExtractFilePath(ParamStr(0))+'RaskFigMem\'+s_rar_Mask);
      ShellExecuteA(0, 'open', 'WinRAR.exe', Pchar('a -r -ep1 '+a+' '+b), nil, SW_SHOW);
Sleep(1000);
if DirectoryExists(ExtractFilePath(ParamStr(0))+'RaskFigMem\') then
   DeleteFile(b);
 
s_rar_Mask:='StringGrid'+S_Mask+'.txt';
b := Pchar(ExtractFilePath(ParamStr(0))+'RaskFigMem\'+s_rar_Mask);
      ShellExecuteA(0, 'open', 'WinRAR.exe', Pchar('a -r -ep1 '+a+' '+b), nil, SW_SHOW);
Sleep(1000);
if DirectoryExists(ExtractFilePath(ParamStr(0))+'RaskFigMem\') then
   DeleteFile(b);
 
s_rar_Mask:='List_Fig'+S_Mask+'.txt';
b := Pchar(ExtractFilePath(ParamStr(0))+'RaskFigMem\'+s_rar_Mask);
      ShellExecuteA(0, 'open', 'WinRAR.exe', Pchar('a -r -ep1 '+a+' '+b), nil, SW_SHOW);
Sleep(1000);
if DirectoryExists(ExtractFilePath(ParamStr(0))+'RaskFigMem\') then
   DeleteFile(b);
 
if Save_XLS_Open then
begin
    ShellExecuteA(0, 'open', CCC, nil, nil, SW_SHOWDEFAULT);  // Открыть xlsx
    Pause;
end;
if FileExists(CCC) then
         DeleteFile(CCC);
 
Label_NameRar.Caption:='Архивирование данных закончено';
 
end;

procedure ClickLeftMousePoTabSheetRaskRo;
var
  p: TPoint;
  k,m:integer;
 
begin
  k:=Panel_Visual_Raskroj2.W_ div 2;
  m:=Panel_Visual_Raskroj2.H_ div 2;
    p:=Types.Point(k,m);
    p:=Panel_Visual_Raskroj2.ClientToScreen(p);
    SetCursorPos(p.x, p.y);
    p := Types.Point(round(p.x*65535/Panel_Visual_Raskroj2.W_),round(p.y*65535/Panel_Visual_Raskroj2.H_));
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, p.x, p.y, 0, 0);
    Application.ProcessMessages;
    sleep(300);
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, p.x, p.y, 0, 0);
    Application.ProcessMessages;
  sleep(300);
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, p.x, p.y, 0, 0);
end;

procedure ClickLeftMousePoTabSheetRaskRo;
var
  p: TPoint;
  k,m:integer;
 
begin
  k:=Panel_Visual_Raskroj2.W_ div 2;
  m:=Panel_Visual_Raskroj2.H_ div 2;
    p:=Types.Point(k,m);
    p:=Panel_Visual_Raskroj2.ClientToScreen(p);
    SetCursorPos(p.x, p.y);
    p := Types.Point(round(p.x*65535/Panel_Visual_Raskroj2.W_),round(p.y*65535/Panel_Visual_Raskroj2.H_));
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, p.x, p.y, 0, 0);
    Application.ProcessMessages;
    sleep(300);
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, p.x, p.y, 0, 0);
    Application.ProcessMessages;
    sleep(300);
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, p.x, p.y, 0, 0);
end;