用Delphi6.0寫的錄音程式,有Source&ExeFile,不用元件採用mmsystem的mciSendString,