判断摄像头是否被占用，C转DELPHI,分不够可以去我的其他问题给！(70分)

把一个user_cam(Camera对象)attachVideo到一个video_vid(视频对象)上，然后判断user_cam.currentFps是否大于0。如果摄像头被占用，那么user_cam.currentFps肯定不会大于0,而是等于0，代码如下： 谁能把它转成DELPHI
function checkCamBusy(user_cam:Camera):Void {
var chkTime:Number = 0;
var intervalID:Number;
function callback() {
trace(user_cam.currentFps);
if (user_cam.currentFps>0) {
//视频设备可用
clearInterval(intervalID);
} else
{
chkTime++;
if (chkTime>30) {
//视频设备忙
_root.video_vid.clear();
clearInterval(intervalID);
}
}
}
intervalID = setInterval(callback, 50);
}

var user_Cam = Camera.get();
_root.video_vid.attachVideo(user_Cam);
checkCamBusy(user_Cam);

procedure checkCamBusy(user_cam:Camera);
procedure callback(var user_cam:Camera;var intervalID,chkTime:byte);
//注意：var 保证程序能更改传入的参数
begin

trace(user_cam.currentFps);
//调用的过程
if (user_cam.currenFps>0) then

clearInterVal(intervalID)
else

inc(chkTime);// = ++
if (chkTime>30) then

begin

_root.video.clear();

//注意这里应该有全局变量,不然就要在callback参数里声明
clearInterval(intervalID);
end;

end;

var
chkTime:byte;
interValID:byte;
begin

interValID:=setInterval(callback(user_cam,interValID,chkTime),50);
end;


//delphi 里没有返回值用procedure 有返回值用 function