var
  tm :tdatetime;
begin
    tm := now();
    while secondof(now)-secondof(tm) <10 do begin  end;
end.