update to previous fix for runtime error.

src/gui/UFRMMainForm.lfm

@@ -15,14 +15,13 @@ object FRMMainForm: TFRMMainForm
   Font.Name = 'Tahoma'
   FormStyle = fsMDIForm
   Menu = meMainMenu
-  OnClose = FormClose
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnResize = FormResize
   Position = poScreenCenter
   ShowHint = True
-  LCLVersion = '1.8.0.6'
+  LCLVersion = '1.8.1.0'
   Visible = False
   object paLogoPanel: TPanel
     Left = 0
@@ -42,7 +41,6 @@ object FRMMainForm: TFRMMainForm
     ParentColor = False
     ParentFont = False
     TabOrder = 1
-    OnClick = paLogoPanelClick
   end
   object paSyncPanel: TPanel
     Left = 0

src/gui/UFRMMainForm.pas

@@ -70,7 +70,6 @@ type
     tbtnConnectivity: TToolButton;
     tbtnSync: TToolButton;
     tbtnWalletLock: TToolButton;
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -169,11 +168,6 @@ begin
   end;
 end;
 
-procedure TFRMMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
-begin
-  // do not delete even if empty
-end;
-
 procedure TFRMMainForm.CM_Terminate(var Msg: TMessage);
 begin
   TUserInterface.ExitApplication;