From 9d31b11c9e143bae126c4dbbe7050699c3fedb4f Mon Sep 17 00:00:00 2001
From: Jan Horacek <me@apophis.cz>
Date: Mon, 8 May 2023 09:22:07 +0200
Subject: [PATCH] Fix compilation warnings.

---
 src/blocks/BlockRailway.pas | 2 --
 src/blocks/BlockTurnout.pas | 3 +--
 src/helpers/version.pas     | 2 +-
 3 files changed, 2 insertions(+), 5 deletions(-)

diff --git a/src/blocks/BlockRailway.pas b/src/blocks/BlockRailway.pas
index d9fc0529..261dbf72 100644
--- a/src/blocks/BlockRailway.pas
+++ b/src/blocks/BlockRailway.pas
@@ -1170,8 +1170,6 @@ function TBlkRailwayTrain.SerializeForPanel(railway: TBlk; trainPredict: Boolean
     if (blkRT.Train = Self.Train) and (blkRT.bpError) then
       bpError := true;
 
-  var blk := Self.Train.front as TBlk;
-
   if (trainPredict) then
     fg := clYellow
   else if (bpError) then
diff --git a/src/blocks/BlockTurnout.pas b/src/blocks/BlockTurnout.pas
index f487e8c5..24d3f3f1 100644
--- a/src/blocks/BlockTurnout.pas
+++ b/src/blocks/BlockTurnout.pas
@@ -1685,9 +1685,8 @@ procedure TBlkTurnout.MapNpEvents();
 procedure TBlkTurnout.MovingUPO(SenderPnl: TIDContext; SenderOR: TObject; UPO_OKCallback: TNotifyEvent;
   UPO_EscCallback: TNotifyEvent);
 var UPO: TUPOItems;
-  item: TUPOItem;
 begin
-  UPO := TList<TUPOItem>.Create;
+  UPO := TList<TUPOItem>.Create();
   try
     if (Self.note <> '') then
       UPO.Add(JCBarrierToMessage(JCBarrier(barBlockNote, Self)));
diff --git a/src/helpers/version.pas b/src/helpers/version.pas
index d591aa33..e50c1176 100644
--- a/src/helpers/version.pas
+++ b/src/helpers/version.pas
@@ -8,7 +8,7 @@ interface
  function LastBuildDate(): string;
  function LastBuildTime(): string;
 
- const _RELEASE: Boolean = false;
+ const _RELEASE: Boolean = true;
 
 implementation