anchor.diff:  begin
     oraSession := TOraSession.Create(nil);
     try
  +    Log.WriteLn('Data changed. Updating');
       oraSession.connectString := fConnectString;
       oraSession.Open;
   
  
positive.code:     parts := aTime.Trim.Split([':']);
      if TryStrToInt(parts[0], h) and TryStrToInt(parts[1], m) then
      begin
        d := aBaseDay[0];
        while h>=24 do
        begin
          Inc(d);
          h := h-24;
        end;
        Result := EncodeDateTime(aBaseDay[2], aBaseDay[1], d, h, m, 0, 0)
      end
      else
        Result := EncodeDateTime(aBaseDay[2], aBaseDay[1], aBaseDay[0], 0, 0, 0, 0);
  
negative.code:                 'WHERE OBJECT_ID='+stop.objectID.ToString;
              oraQuery.Execute;
  //            oraQuery.CommitUpdates;
            finally
              oraQuery.free;
            end;
  