Adicione 2 Buttons
O Button1 será para Compactar, coloque:
WinExec(PChar('C:Arquivos de programasWinRARWinRAR.exe a C:nibzxd.rar C:xpzone.txt'),SW_Normal);
No lugar de xpzone.txt mude para o nome do arquivo que deseja compactar
O Button2 será para Descompactar, coloque...