También podrías utilizar ShellExecute o ExecuteAndWait para ejecutar el comando.
Código Delphi
[-]
ZIP := 'C:\Archivos de programa\7-Zip\';
ZIP := ZIP + '7z.exe a ' + nombre_archivo_comprimido + ' ' + nombre_archivo_origen + ' -ssc-';
ShellExecute(... ZIP ...);