...

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
    Stream: TFileStream;  // Глобальная переменная, в которую мы будем загружать архив

implementation

{$R *.dfm}

...

Итак, жмём два раза на кнопке «Обзор», и вставляем в обработчик события OnClick такой вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Size, Offset, FileNum, A : Integer;
  Name : PChar;
  FileName : String;
  ListItem : TListItem;
begin
  if OpenDialog1.Execute then
  begin
    CFileName.Text := OpenDialog1.FileName;
    Size := 0;
    Offset := 0;
    Name := PChar(AllocMem(24));                    
    CFileList.Clear;
    FileName := OpenDialog1.FileName;
    Stream := TFileStream.Create(FileName, fmOpenRead);   // Открываем архив для чтения
    Stream.Seek(4, 0);   // Пропускаем первые 4 байта, так как они всегда равны «VER2»
    Stream.Read(FileNum, 4);   // Считываем количество файлов
    for A := 0 to FileNum - 1 do  // Цикл считывания всех файлов
    begin
      Stream.Read(Offset, 4);   // Считываем смещение файла
      Stream.Read(Size, 4);   // Считываем размер файла
      Stream.Read(Name^, 24);  // Считываем имя файла
      ListItem := CFileList.Items.Add;                  //
      ListItem.Caption := Name;                         // Добавляем файл со всеми  
      ListItem.SubItems.Add(IntToStr(Size * 2048));     //      параметрами в список файлов
      ListItem.SubItems.Add(IntToStr(Offset * 2048));   //  
    end;
  end;
end;