GetSystemTime "timer" example 2

const
  REPORT_EVERY = 1000;

var
  t, d, s: Integer;

procedure StatusReport;
begin
  Inc(s);
  Status(TimeToStr(Now) + ': Time for status report nr.' + IntToStr(s) + '!');
end;

begin
  repeat
    Inc(d);
    while ((GetSystemTime - t) < REPORT_EVERY) do
      StatusReport;
    WriteLn(TimeToStr(Now) + ': Time for debug report nr.' + IntToStr(d) + '!');
    t := GetSystemTime;
  until False;
end.