哪位能幫我把下面的VB程序改度寫成DELPHI程序(50分)

VB：
Dim Addr as integer
Dim BooleanFlag as Boolean
Dim Itime() as date

Itime(1)=cdate(#08:30#):itime(2)=cdate(#12:30#):Iteme(3)=cdate(#13:30#)
BooleanFlag=Object.setclock(addr,itime)

setclock(addr,itime) 在DELPHI中的原型為：
function TConnect.SetClock(Addr: Smallint
var ITime: PSafeArray): WordBool;
begin
Result := DefaultInterface.SetClock(Addr, ITime);
end;

我不知道"PSafeArray"怎麼定義與使用，該函數完成一考勤機的鬧鈴設置
先謝謝了！