use PV_Unpacker; ... var Unp: TUnpacker; begin Unp := TUnpacker.Create(OpenDialog1.Filename); if Unp.GetFormat = '' then ShowMessage('Unsupported'); for i:=0 to Unp ...