samprates: array [ 0..3] of integer=(8000,11025,22050,44100); TForm1.RateRgrpClick (Sender: TObject);:=samprates [rateRgrp.itemindex] ;;; TForm1.VolBarChange (Sender: TObject) ;. text: =inttostr (Volbar.position) ;;; TForm1.VolEditChange (Sender: TObject); n: integer;:=volbar.position; .position:=strtointdef (VolEdit.text, n); n lt; gt; volbar.position then volbarchange (sender) ;; TForm1.FreqEditChange (Sender: TObject);n:integer;:=freqbar.position;.position:=strtointdef(freqedit.text,n);nlt;gt;freqbar.position then FreqBarchange (sender) ;; TForm1.FreqEditKeyPress (Sender: TObject; var Key: Char); key=# 13 then Freqeditchange (sender) ;; TForm1.Button1Click (Sender: TObject); Button1.Caption= Запис у файл raquo ; then.Click; .Caption:= Зберегти raquo ;; if Button1.Caption= Зберегти then (nil, 0, SND_Purge);:=false; SaveDialog2.Execute then [streaminuse] .SaveToFile (SaveDialog2.FileName) ; .Caption:= Запис у файл raquo ;; assigned (ms [streaminuse]) then freeandnil (Ms [streaminuse]);
end ;;;.
