anchor.diff:      procedure MessageIssue(aKind: TKMMessageKind; const aText: UnicodeString); overload;
       procedure MessageIssue(aKind: TKMMessageKind; const aText: UnicodeString; const aLoc: TKMPoint); overload;
       procedure UpdateUI;
  -    procedure UpdateClock(aSpeedActual, aSpeedRecorded: Single; aShowRecorded: Boolean);
  +    procedure UpdateClock(aSpeedActual, aDefaultSpeed, aSpeedRecorded: Single);
       procedure ShowPlayMore(DoShow: Boolean; Msg: TKMGameResultMsg);
       procedure ShowMPPlayMore(Msg: TKMGameResultMsg);
       procedure ShowNetworkLag(aShow: Boolean; aPlayers: TKMByteArray; IsHost: Boolean);
  
positive.code:   if gGame = nil then Exit;
  
    if CanUpdateClockUI then
      UpdateClock(gGame.SpeedActual, gGame.SpeedGIP, gGameParams.IsReplay);
  end;
  
  
  
negative.code: end;
  
  
  procedure TKMGamePlayInterface.UpdateClock(aSpeedActual, aDefaultSpeed, aSpeedRecorded: Single);
  var
    doShowClock, doShowRecorded: Boolean;
  begin
    if Self = nil then Exit;
  
    doShowRecorded := gGameParams.IsReplay;
    doShowClock := gGameParams.IsReplay
                or (aSpeedActual <> aDefaultSpeed)
                or (doShowRecorded and (aSpeedRecorded <> aDefaultSpeed));
  
    Image_Clock.Visible := doShowClock;
    Label_Clock.Visible := doShowClock or gGameSettings.ShowGameTime or SHOW_GAME_TICK;
    Label_ClockSpeedActual.Visible := doShowClock;
    Label_ClockSpeedActual.Caption := 'x' + FormatFloat('##0.##', aSpeedActual);
  
    if doShowRecorded then
    begin
      Label_ClockSpeedRecorded.Visible := doShowClock;
      Label_ClockSpeedRecorded.Caption := 'x' + FormatFloat('##0.##', aSpeedRecorded);
  