主题：请问条件成立时起延迟3秒怎么写？

 GLOBALVARIABLE:mark:=0;
buycd:1;//开仓条件
if buycd and mark=0 then //buycd必须是完整的开仓条件，包含开仓的所有判断因素在内。
begin
extgbdataset ('ti',currenttime);  //满足条件记录下现在的时间
mark:=1;
end


延迟:=currenttime - extgbdata('ti');

if 延迟>30 and mark=1 then
begin
tbuy(1,1,mkt);
mark:=0;