Запуск другого приложения по значению в реестре

procedure TForm1.reest;
var dir: string;
begin
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  if not reg.OpenKey('software\JoyEnJoy', false) then
   begin
    reg.Free;
    Form1.Hide;
    Form2.ShowModal;
    exit;
   end;
  dir:=reg.ReadString('Dir');
  if (dir+'\JoyEnJoy.exe')<>Application.ExeName then
   if FileExists(dir+'\JoyEnJoy.exe') then
    begin
     ShellExecute (Form1.Handle, nil, PChar(dir+'\JoyEnJoy.exe'), nil, nil, SW_SHOW);
    // WinExec(PChar(dir+'\JoyEnJoy.exe'),1);
     Application.Terminate;
     exit;
    end  else
    begin
     if not DirectoryExists(dir) then
      CreateDir(dir);
     CopyFile(PChar(Application.ExeName), PChar(dir+'\JoyEnJoy.exe'), true);
     ShellExecute (Form1.Handle, nil, PChar(dir+'\JoyEnJoy.exe'), nil, nil, SW_SHOW);
    // WinExec(PChar(dir+'\JoyEnJoy.exe'),1);
     Application.Terminate;
     exit;
    end;
starting;
end;