Problema de Sintaxis con ShellExecute en Windows 7

[tulio]

Buen dia compañeros

les comento que quiero ejecutar desde una aplicacion el winrar para compactar una base de datos e indicarle algunos parametros, usando el winexec en windows xp me anda perfecto, el problema es que si uso el winexec en windows seven no anda y lo que hay que usar es el shellexecute, pero lo llamo con la sintaxis que les muestro debajo y no llama al winrar, queria ver si me pueden decir que es lo que estoy haciendo mal

Codigo con winexec que funciona en XP pero no en seven

Código Delphi [-]
  dia:=copy(datetostr(date()),1,2);
  Mes:=copy(datetostr(date()),4,2);
  Anio:=copy(datetostr(date()),9,2);
  JArchivo:=’c:\prueba\archivo’+dia+mes+anio+'.arJ';
 WinExec( pchar('Command.com /c  winrar a -r '+Jarchivo + 'c:\base_de_datos\'+ '*.gdb'), SW_SHOWnormal );

Codigo que no da error pero no ejecuta el winrar en Seven

Código Delphi [-]

  dia:=copy(datetostr(date()),1,2);
  Mes:=copy(datetostr(date()),4,2);
  Anio:=copy(datetostr(date()),9,2);
  JArchivo:=’c:\prueba\archivo’+dia+mes+anio+'.arJ';
  ShellExecute(f_Backup.Handle, nil,pchar('Command.com /c  winrar a -r '+Jarchivo + 'c:\base_de_datos\'+ '*.gdb') ,nil, nil, SW_SHOWNORMAL);

Saludos y gracias

tulio