TPTSample

type TPTSample = record

  Name: array [0..21] of AnsiChar;

  Length: Word;

  FineTune: Byte;

  Volume: Byte;

  Repeat_: Word;

  Replen: Word;

end;