Den MemoryStream brauchst du nicht. Ein Dateiname (string) reicht.
So ist es meiner Meinung nach eleganter
Delphi-Quellcode:
var
ArchiveFormat : TJCLUpdateArchiveClass;
Archive: TJclUpdateArchive;
begin
ArchiveFormat := GetArchiveFormats.FindUpdateFormat('C:\1.7z');
if ArchiveFormat <> nil then
begin
Archive := aCompressFormat.Create('C:\1.7z');