[Alegun]

Бросьте на форму кнопку и мемо

Код:

uses SevenZip;

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 Arc: I7zInArchive;
begin
 Memo1.Clear;
 Arc:= CreateInArchive(CLSID_CFormatTar);
 Arc.OpenFile('Имя архива.tar');
 for i := 0 to Arc.NumberOfItems - 1 do
  if not Arc.ItemIsFolder[i] then
   if ExtractFileExt(Arc.ItemPath[i]) = '.xml' then
    Memo1.Lines.Add(Arc.ItemPath[i]);
end;