anchor.diff:  
     case fAction.Execute of
       arActContinues: Exit;
  -    else            FreeAndNil(fAction);
  +  else
  +    FreeAndNil(fAction);
     end;
     SetCurrPosition(KMPointRound(fPositionF));
   
  
positive.code:   LoadStream.Read(fDismissASAP);
    LoadStream.Read(Dismissable);
    LoadStream.Read(fLastTimeTrySetActionWalk);
  
  
  end;
  
  
  
negative.code:   ID: Integer;
  begin
    inherited;
    if not fVisible then Exit;
    if fAction = nil then Exit;
    V := fVisual.GetLerp(aTickLag);
  
    XPaintPos := V.PosF.X + UNIT_OFF_X + V.SlideX;
  