Как создать звук?

   ZvukData = Record                   
      wSamplesPerSec : Cardinal;       
      wAvgBytesPerSec: Cardinal;      
      wBitsPerSample : WORD;          
      wChannels      : WORD;         
      Data           : TMemoryStream; 
      end;
 
 
   TWaveHeaderChank = packed record  
      wFormatTag     : Smallint;
      wChannels      : WORD;
      wSamplesPerSec : Cardinal;
      wAvgBytesPerSec: Cardinal;
      wBlockAlign    : WORD;
      wBitsPerSample : WORD;
      wcbSize        : WORD;
      end;
 
 
..........................................................................
 
 
Function WriteWave(FileName : AnsiString; data : ZvukData) : WORD;
var
   f             : TFileStream;
   wFileSize     : Cardinal;
   wChankSize    : Cardinal;
   ID            : array[0..3] of Char;
   Header        : TWaveHeaderChank;
Begin
   f:=nil;
   Try
      f := TFileStream.Create(FileName, fmCreate);
      f.Seek(0, soFromBeginning);
      Header.wFormatTag     := 1;
      Header.wChannels      := data.wChannels;
      Header.wSamplesPerSec := data.wSamplesPerSec;
      Header.wBlockAlign    := data.wChannels * (data.wBitsPerSample div 8);
      Header.wAvgBytesPerSec:= data.wSamplesPerSec * Header.wBlockAlign;
      Header.wBitsPerSample := data.wBitsPerSample;
      Header.wcbSize        := 0; 
 
      ID := 'RIFF';
      f.WriteBuffer(ID, 4);
      wFileSize := 0;       
      f.WriteBuffer(wFileSize, 4);
      ID := 'WAVE';
      f.WriteBuffer(ID, 4); 
 
      ID := 'fmt ';
      f.WriteBuffer(ID, 4);                  
      wChankSize := SizeOf(Header);
      f.WriteBuffer(wChankSize, 4);              
      f.WriteBuffer(Header, SizeOf(Header)); 
 
      ID := 'data';
      f.WriteBuffer(ID, 4);                 
      wChankSize := data.Data.Size;          
      f.WriteBuffer(wChankSize, 4);          
      data.Data.Seek(0, soFromBeginning);
      f.CopyFrom(data.Data, data.Data.Size);
 
      f.Seek(SizeOf(ID), soFromBeginning);     
      wFileSize := f.Size - SizeOf(ID) - SizeOf(wFileSize);
      f.Write(wFileSize, 4);                  
   except
      f.Free;
      end;
 
   end;
 
 
 
 
 
 
procedure TForm1.Button7Click(Sender: TObject);        
var
   x,y,liniya: integer;       
   r: ZvukData;               
   d: SmallInt;
begin
   try
      with r do begin               
         wSamplesPerSec:=Chastota;
         wBitsPerSample:=8;
         wChannels:=1;
         Data:=TMemoryStream.Create;
         Data.Seek(0,soFromBeginning);  
         end;
      liniya:=-1;
      For y:=0 to Image1.Height-1 do begin
         For x:=0 to Image1.Width-1 do begin
            If massiv[x,y]=True then begin
               liniya:=liniya+1;
               d:=500;                       ///данные массива
               r.Data.WriteBuffer(d, 1);
               end
            else begin
               d:=-128;
               r.Data.WriteBuffer(d, 1);
               end;
            end;
         end;
 
      WriteWave(FileName, r);
 
   finally
      r.Data.Free;       
      end;
   ShowMessage('..... Файлик успешно откомпелирован! .....');
   end;

Цитата (IgoRek125):