char *cpHeader;
  int iSampleSize;
  short *pVoiceBuffer;
  long lSamplingRate,lFileSize;
  short sBitsPerSample,sChannels;
  
  OpenDialog->InitialDir="D:\\";
  if(OpenDialog->Execute()==false)
    {
     OpenFiles->Enabled=true;
     return;
    }
  sOpenFileName=OpenDialog->FileName;
  f= new TFileStream(sOpenFileName,fmShareDenyWrite);
  cpHeader= new char[44];
  f->ReadBuffer(cpHeader,44);      f->Seek(22,soFromBeginning);
  f->Read(&sChannels,sizeof(short));      f->Seek(24,soFromBeginning);
  f->Read(&lSamplingRate,sizeof(long));
  
  f->Seek(34,soFromBeginning);
  f->Read(&sBitsPerSample,sizeof(short));      f->Seek(40,soFromBeginning);
  f->Read(&lFileSize,sizeof(long));      if(sBitsPerSample==8)
    {
      iSampleSize=lFileSize;
    }
  else if(sBitsPerSample==16)
    {
      iSampleSize=lFileSize/2;
    }
  else
    {
      return;
    }
  pVoiceBuffer= new short[iSampleSize];
  f->Seek(44,soFromBeginning);
  f->ReadBuffer(pVoiceBuffer,lFileSize);
  
  //畫圖
  int i,yValue;
  for ( i = 0 ; i < lFileSize; i ++)
    {
      yValue =pVoiceBuffer[i] ;
      Chart1->Series->AddY(yValue,"",clRed);
    }