anchor.diff:  procedure TTaskDeliver.SyncLoad;
   begin
     inherited;
  -  fFrom    := fPlayers.GetHouseByID(cardinal(fFrom));
  -  fToHouse := fPlayers.GetHouseByID(cardinal(fToHouse));
  -  fToUnit  := fPlayers.GetUnitByID(cardinal(fToUnit));
  +  fFrom    := fPlayers.GetHouseByID(Cardinal(fFrom));
  +  fToHouse := fPlayers.GetHouseByID(Cardinal(fToHouse));
  +  fToUnit  := fPlayers.GetUnitByID(Cardinal(fToUnit));
   end;
   
   
  
positive.code: 
  
  //Note: Phase is -1 because it will have been increased at the end of last Execute
  function TTaskDeliver.WalkShouldAbandon:boolean;
  begin
    Result := false;
  
  
negative.code: end;
  
  
  constructor TTaskDeliver.Load(LoadStream: TKMemoryStream);
  begin
    inherited;
    LoadStream.Read(fFrom, 4);
  