if WaitForHeartbeat then begin
      if (MyNow - LastHeartbeat) * 86400 >= HeartbeatTimeout then begin
        writelog (format('No heartbeat for %d seconds', [HeartbeatTimeout]));
        CloseChannel (JudgeChannel); ChannelClosed:=true;
      end;
    end;