TSOB_HEADER = packed record
          id : array[0..3] of char; //   CTF2
          ver: array[0..3] of byte; //01 00 00 02
          numsamples: Longword;
          unknown: Longword;
          end;

    TSOB_SAMPLE = packed record
          id : array[0..3] of byte;// 01 01 00 00
          FF : Longword; // ffffffff
          zeros: array[0..5] of Longword;
          items: longword; //01
          dummy: array[0..1] of Longword;
          end;

   TSAB_HEADER = packed record
          id : array[0..3] of char; //   CSW2
          ver: array[0..3] of byte; //01 00 00 02
          numsamples: Longword;
          unknown: Longword;
          offset: Longword;
          nSlotNumber: Longword;
          end;

    TSAB_SAMPLE = packed record
          is_file: Longword;
          chan: Longword;
          freq: Longword;
          size: Longword;
          loopstart: Longword;
          loopend: Longword;
          offset: Longword;
          end;

   SOB.LoadFromFile(filename);

    SOB.ReadBuffer(sobh,sizeof(sobh));
    num:=sobh.numsamples;
    SOBChunks.Count:=num;

     for i := 0 to  num-1 do begin
         SOB.ReadBuffer(sobs,sizeof(sobs));   

         if sobs.FF<>$ffffffff then begin
          Showmessage(format('Error reading SOB stream[%d] 0x%x',[i,SOB.Position]));
          goto closep;
          end;
         if (sobs.id[0]and 1)>0 then SOB.Seek(64,1);
         case sobs.id[0] of
         0,1,5: AddSoundItem;     //     101B
         8,9: AddSequeenceItem;   //    1001B
         32:  AddInterleavedItem; //  100000B
         65:  AddMatrixItem;      // 1000001B
         end;

     end;

     // читаем названия
     for i := 0 to  num-1 do begin
       SOB.ReadBuffer(id,4);
       SOB.ReadBuffer(namesize,4);
       FillChar(cname,255,0);
       SOB.ReadBuffer(cname,namesize);
       SOBChunks[i].Name:=cname;      
     end;

    procedure AddSoundItem();
    var
    k:integer;
    begin
       Node.Text:='soundItem';
       for k:=1 to sobs.items do begin
            INode:=Tree.Items.AddChild(Node,'entryItem');         
            SOB.Read(val,4); // index;
            AddReadVal(INode,'sampleBankIndex');
            AddReadVal(INode,'sampleObjectIndex');
            SOB.Seek(4*4,1);
          //  AddReadVal(INode,'level');
          //  AddReadVal(INode,'cents');
         //   AddReadVal(INode,'randomCents');
         //   AddReadVal(INode,'randomLevel');
            end;
    end;

    procedure AddSequeenceItem();
    var
    k:integer;
    begin
       Node.Text:='sequenceItem';
       for k:=1 to sobs.items do begin
            INode:=Tree.Items.AddChild(Node,'trackItem');
            SOB.Read(val,4); // index;
            AddReadVal(INode,'soundBank');
            AddReadVal(INode,'soundName');
            AddReadValf(INode,'time');
            end;
    end;

    procedure AddMatrixItem();
    var
    k:integer;
    begin
       Node.Text:='matrixItem';
       SOB.Seek(32,1); // matrixItem 2(matrixItem)
       for k:=1 to sobs.items do begin
            INode:=Tree.Items.AddChild(Node,'matrixItem');
            AddReadVal(INode,'sampleBankIndex');
            AddReadVal(INode,'sampleObjectIndex');
            SOB.Seek(4*2,1);
            end;
    end;

    procedure AddInterleavedItem();
    var
    k:integer;
    begin
       Node.Text:='interleavedItem';
       for k:=1 to sobs.items do begin
            INode:=Tree.Items.AddChild(Node,'sampleItem');
            AddReadVal(INode,'sampleBankIndex');
            AddReadVal(INode,'sampleObjectIndex');
            SOB.Seek(4*2,1);
            end;
    end;

      SAB.LoadFromFile(filename);
      SAB.ReadBuffer(sabh,sizeof(sabh));
      num:=sabh.numsamples;
      baseoffset:=sizeof(sabh)+sizeof(sabs)*num;
      SABChunks.Count:=num;
      for i := 0 to  num-1 do begin    
          SAB.ReadBuffer(sabs,sizeof(sabs));
          oldpos:=SAB.Position;
          SAB.Position:=baseoffset+sabs.offset;
          // выделяем место в памяти под wav дату и копируем туда инфу
          SAB.ReadBuffer(p^,Size);
          SAB.Position:=oldpos;
          end;
     end;

TSAB_HEADER = packed record    
             id : array[0..3] of char; //   CSW2    
             ver: array[0..3] of byte; //01 00 00 02    
             numsamples: Longword;    
             aSampleAlign: Longword;    
             offset: Longword;    
             nSlotNumber: Longword;    
             end;