anchor.diff:      destructor  Destroy; override;
       procedure   CheckAlarm(ctime: TDateTime);
       procedure   Reset; virtual;
  +    procedure   Pause(ASeconds: integer);
       property    Enabled: boolean read FEnabled write SetEnabled;
       property    NextAlarm: TDateTime read FNextAlarm;
       { Interval is in milliseconds. }
  
positive.code: begin
    Enabled := False;
    Enabled := True;
  end;
  
  function fpgApplication: TfpgApplication;
  
negative.code: uses
    strutils,
    math,
    dateutils,
    fpg_imgfmt_bmp,
    fpg_stdimages,
    fpg_translations,
  