From 9077b5a1f7e80c66d184d222bbad6f73f60e28a3 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sat, 8 May 2010 14:30:51 +0000
Subject: [PATCH] lcl: cleanup

git-svn-id: trunk@25248 -
---
 lcl/include/wincontrol.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 2bebf8d826..b03bf762c2 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -5024,7 +5024,7 @@ begin
         and (not (csDestroyingHandle in ControlState))
         and (not (csDestroying in ComponentState))
         then begin
-          if (Form <> nil) and not Form.SetFocusedControl(Self) then Exit;
+          if not Form.SetFocusedControl(Self) then Exit;
           Message.Result := 0;
         end;
       end;
@@ -5306,7 +5306,7 @@ end;
 ------------------------------------------------------------------------------}
 procedure TWinControl.SetFocus;
 var
-  Form : TCustomForm;
+  Form: TCustomForm;
 begin
   {$IFDEF VerboseFocus}
   DebugLn('[TWinControl.SetFocus] ',Name,':',ClassName,' Visible=',dbgs(Visible),' HandleAllocated=',dbgs(HandleAllocated));