anchor.diff:  uses
     strutils,
     math,
  +  dateutils,
     fpg_imgfmt_bmp,
     fpg_stdimages,
     fpg_translations,
  
positive.code: begin
    Enabled := False;
    Enabled := True;
  end;
  
  function fpgApplication: TfpgApplication;
  
negative.code:     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. }
  