GetSystemTime "timer" example

const
  REPORT_EVERY = 1000;

var
  t: Integer;

begin
  repeat
    if ((GetSystemTime - t) > REPORT_EVERY) then
    begin
      WriteLn(TimeToStr(Now) + ': Time for report!');
      t := GetSystemTime;
    end;
  until False;
end.