From dad2214c718740cfeebb8e4fc40f06872d715bae Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 9 Jun 2012 12:34:36 +0000
Subject: [PATCH] Cleanup

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2455 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/spktoolbar/designtime/SpkToolbarEditor.pas | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/components/spktoolbar/designtime/SpkToolbarEditor.pas b/components/spktoolbar/designtime/SpkToolbarEditor.pas
index 8d234bfb4..585e8515e 100644
--- a/components/spktoolbar/designtime/SpkToolbarEditor.pas
+++ b/components/spktoolbar/designtime/SpkToolbarEditor.pas
@@ -268,13 +268,11 @@ var Component : TComponent;
 
 begin
 Component:=self.GetComponent;
-if not(assigned(Component)) then
-   exit;
 
 if not(Component is TSpkToolbar) then
    exit;
 
-Toolbar:=Component as TSpkToolbar;
+Toolbar:=TSpkToolbar(Component);
 Designer:=self.GetDesigner;
 
 EditWindow.SetData(Toolbar,Designer);
@@ -341,7 +339,7 @@ begin
 Obj:=GetComponent(0);
 if Obj is TSpkToolbar then
    begin
-   Toolbar:=(Obj as TSpkToolbar);
+   Toolbar:=TSpkToolbar(Obj);
 
    AppearanceEditor:=TfrmAppearanceEditWindow.Create(nil);
    try
@@ -358,7 +356,7 @@ if Obj is TSpkToolbar then
    end else
 if Obj is TSpkTab then
    begin
-   Tab:=(Obj as TSpkTab);
+   Tab:=TSpkTab(Obj);
 
    AppearanceEditor:=TfrmAppearanceEditWindow.Create(nil);
    try