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);

WINXP:
    handleGL    : HWND;
    dc          : HDC  ;
    hrc         : HGLRC ;
    ps          : TPaintStruct;
 
  handleGL:=TWinControl(dr).Handle;
  dc := GetDC (handleGL);
  SetDCPixelFormat;
  hrc := wglCreateContext(dc);
 
В winXP от TCustomControl   [B]SetFocus[/B](handleGL);  в unit Windows
 
Win10
    handleGL    : HWND;
    dc          : HDC  ;
    hrc         : HGLRC ;
    ps          : TPaintStruct;
 
  handleGL:=TWinControl(dr).Handle;
  dc := GetDC (handleGL);
  SetDCPixelFormat;
  hrc := wglCreateContext(dc);
 
 win10  (WIN7) от TGraphicControl  TWinControl.SetFocus; в unit Controls

procedure ClickLeftMousePoTabSheetRaskRo;
var
  p: TPoint;
  k,m:integer;
 
begin
if FormSapr.Panel_Visual_Raskroj1<>nil then // WinXP
begin
  k:=Panel_Visual_Raskroj1.W_ div 2;
  m:=Panel_Visual_Raskroj1.H_ div 2;
    p:=Types.Point(k,m);
    p:=Panel_Visual_Raskroj1.ClientToScreen(p);
end
else    // Win10
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);
end;
    SetCursorPos(p.x, p.y);
if FormSapr.Panel_Visual_Raskroj1<>nil then // WinXP
    p := Types.Point(round(p.x*65535/Panel_Visual_Raskroj1.W_),round(p.y*65535/Panel_Visual_Raskroj1.H_))
else    // Win10
    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);
    Application.ProcessMessages;
    sleep(300);
 
end;