New GUI: compile fix

src/core.utils/UCoreUtils.pas

@@ -258,7 +258,7 @@ var
   LDestBlock : Cardinal;
 begin
   LReady := Self.Bank.IsReady(LMsg);
-  if LReady and TNetData.NetData.IsGettingNewBlockChainFromClient then begin
+  if LReady and TNetData.NetData.IsGettingNewBlockChainFromClient(LMsg) then begin
     LDestBlock := TNetData.NetData.MaxRemoteOperationBlock.block;
     Result := Self.Bank.BlocksCount = TNetData.NetData.MaxRemoteOperationBlock.block;
   end;

src/gui/UUserInterface.pas

@@ -491,11 +491,12 @@ var
   LActive, LDiscoveringPeers, LGettingNewBlockchain, LRemoteHasBiggerBlock, LNoConnections : boolean;
   LState : TUserInterfaceState;
   LLocalTip, LRemoteTip : Cardinal;
+  LMsg : AnsiString;
 begin
   LState := FState;
   LActive := FNode.NetServer.Active;
   LDiscoveringPeers := TNetData.NetData.IsDiscoveringServers;
-  LGettingNewBlockchain := TNetData.NetData.IsGettingNewBlockChainFromClient;
+  LGettingNewBlockchain := TNetData.NetData.IsGettingNewBlockChainFromClient(LMsg);
   LLocalTip := Node.Bank.BlocksCount;
   LRemoteTip := TNetData.NetData.MaxRemoteOperationBlock.block;
   LRemoteHasBiggerBlock := LRemoteTip > LLocalTip;