Delphi 目前使用delay函数功能

procedure sdfg.iTimers1Timer4(Sender: TObject);
var
vsub : Cardinal;
vSetinterval: Cardinal;
begin
vsub := GetTickcount - FCurrSampleTime;
vSetinterval := GetCardinalValue(2);
if vsub >= vSetinterval then
begin
iTimers1.Enabled4 := False;
end
else
begin
iSevenSegmentClock1.time := vsub /(1000*60*60*24);
end;
end;