1 files changed, 1 insertions, 3 deletions
diff --git a/examples/gui/customstyles/frm_test.pas b/examples/gui/customstyles/frm_test.pas
index ed96d8cb..6eb30b35 100644
--- a/examples/gui/customstyles/frm_test.pas
+++ b/examples/gui/customstyles/frm_test.pas
@@ -54,7 +54,6 @@ end;
 procedure TTestForm.AfterCreate;
 var
   miSubMenu: TfpgMenuItem;
-  lst: TStrings;
 begin
   {@VFD_BODY_BEGIN: TestForm}
   Name := 'TestForm';
@@ -262,8 +261,7 @@ begin
 
   miSubMenu.SubMenu := pmSubMenu1;
 
-  lst := memStyles.Lines;
-  fpgStyleManager.AssignStyleTypes(lst);
+  fpgStyleManager.AssignStyleTypes(memStyles.Lines);
 end;