anchor.diff:  type
     ENoTimeDefined = class(Exception);
     EOriginNotSet = class(Exception);
  +  EInvalidTime = class(Exception);
   
     TPobjPhase = (ppGone, ppSoundLeave, ppGoingToLeave, ppPreparing, ppLongTime,  // faze, ve kterych muze byt cas odjezdu
                   ppTimeNotSet);
  
positive.code: procedure TPOdj.GetPtData(json: TJsonObject);
  begin
   if (Self.rel_enabled) then
     json.D['relative'] := Self.rel;
   if (Self.abs_enabled) then
     json.D['absolute'] := Self.abs;
  end;
  
negative.code: end;
  
  constructor TPOdj.Create(abs: string; rel: string);
  var dt: TDateTime;
  begin
   Self.Create();
  
  