主题：拜托请写个延迟5秒的完整的具体例句

延迟30秒的例子

DEBUGOUT('现在输%.2f',1);

GLOBALVARIABLE:n=0;
if 开仓条件 and n=0 then
begin
extgbdataset ('ti',currenttime); 
n:=1;
end

延迟:=currenttime - extgbdata('ti');
DEBUGOUT('当前时间%.2f',currenttime);
DEBUGOUT('历史时间%.2f',extgbdata('ti'));
if 延迟>30 then begin
tbuy(1,1,mkt);
n:=0;
end