anchor.diff:  
       for I := 1 to 1000 do
       begin
  -      fGame.UpdateState(nil);
  +      fGame.UpdateGame(nil);
         if fGame.GameState = gsOnHold then
           fGame.GameHold(False, gr_Win);
       end;
  
positive.code: 
  
  procedure TestTKMGame.TestAIBuild;
  var I: Integer;
  begin
    fGame.StartSingleMap(ExtractFilePath(ParamStr(0)) + 'AcrossDesert.dat', 'AcrossDesert');
  
    for I := 1 to 60*60*10 do
    begin
      fGame.UpdateState(nil);
      if fGame.GameState = gsOnHold then
        fGame.GameHold(False, gr_Win);
    end;
  
    fGame.Save('AcrossDesert');
  end;
  
negative.code: 
    for I := 1 to 60*60*10 do
    begin
      fGame.UpdateGame(nil);
      if fGame.GameState = gsOnHold then
        fGame.GameHold(False, gr_Win);
    end;
  