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