Ayuda descomprimir archivos con pass

[dellarts]

Estoy probando este codigo ke me funciona perfectamente pero no a la ke le añado el pass no me funciona

begin
ShellExecute(Handle, 'Open', 'C:\Archivos de programa\WinRAR\rar.exe', 'x C:\prueba\Escritorio.rar C:\prueba\', nil, SW_HIDE);
end;

le añado al lado de la 'x' de la accion que significa extraer el p[123] dnd 123 es el pass y nada no lo consigo haber si alguien me puede hechar una mano

Saludos