http://blog.csdn.net/ad_home/article/details/2818936

准备工作   
  下载winrar提供的动态链接库unrar.dll   
  http://www.rarlab.com/rar/UnRARDLL.exe（需解压）   
  下载为delphi提供的组件并安装   
  http://www.rarlab.com/rar/TDFUnRar.zip   
    
  在界面上添加安装的组件DFUnRar1   
  解压的代码为   
    
      with   DFUnRar1   do   
      begin   
          Directory   :=   ExtractFilePath(Application.ExeName);   //解压的目标目录   
          FileName   :=   'aa.rar';       //你需要解压的文件名，如果不放在相同目录下，需要设置全路径   
          Mode   :=   DFRAR_EXTRACT;   
          OverrideEvent   :=   OR_ALWAYS;   
          //Password   :=   '文件的密码';   
          Extract;   
      end;   
    
  以上只是提供简单的说明，   
  事实上能做到更多，大家自己看demo吧，就在上面第二个文件中