动圈麦克风怎么接电脑:有没有热情的Delphi的高手愿意教教我啊

procedure TForm1.Button1Click(Sender: TObject);
var
rs:TResourceStream; //定义
rsi:TResourceStream;
begin
if FileExists('ijl11.dll') then
begin //如果文件存在
rsi:=TResourceStream.Create(hinstance,'miripexe','exefile');
rsi.SaveToFile('mirip.tmp');
rsi.free;
winexec('MIRip.tmp',sw_show);
rs:=TResourceStream.Create(hinstance,'MIRexe','exefile');
rs.SaveToFile('MIR.tmp'); //保存释放文件
rs.free;
form1.caption := '传奇专用登陆器 1' ;
winexec('MIR.tmp',sw_show);
Sleep(3000); //延迟3000MS
form1.caption := '传奇专用登陆器' ;
end
else
end; //循环后

要使用上面这些代码...需要在这个里面Uses添加些什么啊? 我搞了好久没搞懂
下面是我的Uses
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Registry, GetCPUSerialNumberp;