[angvelem]

Сколько шума из ничего:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  F    : File;
  I, J : Integer;
  XX   : Byte;
begin
  mpp    := '1';
  ss[kd] := '1w';

{$I-}
  AssignFile(F, ss[kd] + mpp + '.wav');
  Reset(F, 1);
  if IOResult = 0 then
  begin
    Seek(F, 50);

    for I := 1 to jjk do
      for J := 1 to 4096 do
      begin
        BlockRead(F, XX, 1);
        X[J] := XX;
      end;
    CloseFile(F);
  end;
{$I+}
end;

Но проверь на ошибки, всякое может случиться.