1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

rocedure TfrmMain.SevenZip1Listfile(Sender: TObject; Filename: WideString;
  Fileindex, FileSizeU, FileSizeP, Fileattr, Filecrc: Cardinal;
  Filemethod: WideString; FileTime: Double);
var
  l :tlistitem;
begin
  l := listview1.Items.Add;
  l.Caption := extractfilename(filename);
  l.SubItems.Add(extractfilepath(filename));
  l.SubItems.Add(inttostr(Fileattr));
  l.SubItems.Add(inttostr(filesizep));
  l.SubItems.Add(inttostr(filesizeu));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

  if Opendialog.Execute then begin

    frmmain.sevenzip1.VolumeSize := 0;

    for i := 0 to opendialog.Files.count-1 do
      Frmmain.SevenZip1.Files.AddString(opendialog.Files[i]);

    i := frmmain.Sevenzip1.Add;

  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TfrmMain.SevenZip1Listfile(Sender: TObject; Filename: WideString;  
  Fileindex, FileSizeU, FileSizeP, Fileattr, Filecrc: Cardinal;  
  Filemethod: WideString; FileTime: Double);  
begin  
  with Listview1.Items.Add do
  begin
    Caption := ExtractFileName(Filename);  
    SubItems.Add(ExtractFilePath(Filename));  
    SubItems.Add(IntToStr(Fileattr));  
    SubItems.Add(IntToStr(FileSizeP));  
    SubItems.Add(IntToStr(FileSizeU));
  end; 
end;					

1:

SevenZip1.List;