Все я понял чё нужно было сделать вот рабочий код
var
zip:TZIPFile;
byt:TBytes;
str:TStream;
l:TZIpheader;
s:TStringstream;
begin
s:=TStringstream.Create;
zip:=Tzipfile.Create;
zip.Open('D:\ОНВ\Архив.zip',Tzipmode.zmRead);
zip.Read(2,str,l); //Нужно было с хедерам брать
//str.
s.LoadFromStream(str);
memo1.Lines.Add(s.DataString);
zip.DisposeOf;
TListView(Sender).Items.ActiveItems.Sort(
TComparer<TListViewItem>.Construct(
function(const Left, Right: TListViewItem): Integer
var
.......
TListView(Sender).Items.Changed;
p.s. ActiveItems и Changed - это хелперы к соотв-им полям\методам strict private
p.s. метод Sort - я вообще не понимаю {censored} он тут нужен. он сортирует свои внутренние объекты стиля
Rad Studio из коробки умеет работать с zip архивами, единственный (вроде) минус – не работает с запароленными архивами. Модуль System.Zip(Справка), попробуйте воспользоваться им.