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:   begin
     dt := json.D['absolute'];
     if (dt < timeHelper.hJopNow()) then
       raise Exception.Create('Nelze vytvoit PODJ do minulosti!');
     Self.abs := dt;
    end;
  
   if (json.Contains('relative')) then
    begin
     dt := json.D['relative'];
     ReplaceDate(dt, 0);
     Self.rel := dt;
    end;
  end;
  
negative.code:   end;
  
   if (rel <> '') then
    begin
     dt := StrToTime('00:'+rel);
     if (dt = 0) then
       raise EInvalidTime.Create('PODJ neme bt 0s!');
     Self.rel := dt;
    end;
  end;
  
  constructor TPOdj.Create(json: TJsonObject);
  