From 13264d325174fefe2a0d78d0db95ceb48cfd2263 Mon Sep 17 00:00:00 2001
From: Andreas Schneider <aksdb@gmx.de>
Date: Thu, 17 Dec 2009 00:36:26 +0100
Subject: [PATCH] - Fixed potential crash when using the Mouse Wheel

---
 Client/UfrmMain.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Client/UfrmMain.pas b/Client/UfrmMain.pas
index ca68e21..d3d004e 100644
--- a/Client/UfrmMain.pas
+++ b/Client/UfrmMain.pas
@@ -793,6 +793,9 @@ var
   cursorNeedsUpdate: Boolean;
   newZ: ShortInt;
 begin
+  if CurrentTile = nil then
+    Exit;
+
   //We want single steps ...
   WheelDelta := WheelDelta div WHEEL_DELTA;