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.Create; + UPO := TList.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