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;