Some white space/empty lines removed

Author: SkybuckFlying

src/gui-classic/UFRMWallet.pas

@@ -220,7 +220,6 @@ implementation
   UFRMWalletInformation;
 
 Type
-
   { TThreadActivate }
 
   TThreadActivate = Class(TPCThread)
@@ -303,7 +302,6 @@ procedure TFRMWallet.lblReceivedMessagesClick(Sender: TObject);
   PageControl.ActivePage := tsMessages;
 end;
 
-
 procedure TFRMWallet.Activate;
 Var ips : AnsiString;
   nsarr : TNodeServerAddressArray;
@@ -617,8 +615,6 @@ procedure TFRMWallet.CheckIsReady;
   end;
 end;
 
-
-
 procedure TFRMWallet.CM_WalletChanged(var Msg: TMessage);
 begin
   FrameAccountExplorer.UpdatePrivateKeys;
@@ -691,7 +687,6 @@ procedure TFRMWallet.FinishedLoadingApp;
   end;
 end;
 
-
 procedure TFRMWallet.FillOperationInformation(const Strings: TStrings;
   const OperationResume: TOperationResume);
 var i : Integer;
@@ -750,10 +745,6 @@ procedure TFRMWallet.FillOperationInformation(const Strings: TStrings;
   end;
 end;
 
-
-
-
-
 procedure TFRMWallet.MiOperationsExplorerClick(Sender: TObject);
 begin
   With TFRMOperationsExplorer.Create(Self) do
@@ -778,7 +769,6 @@ procedure TFRMWallet.MiRPCCallsClick(Sender: TObject);
   end;
 end;
 
-
 function TFRMWallet.GetAccountKeyForMiner: TAccountKey;
 Var PK : TECPrivateKey;
   i : Integer;
@@ -839,7 +829,6 @@ procedure TFRMWallet.IPnodes1Click(Sender: TObject);
   End;
 end;
 
-
 procedure TFRMWallet.miAboutPascalCoinClick(Sender: TObject);
 begin
   With TFRMAbout.Create(Self) do
@@ -859,7 +848,6 @@ procedure TFRMWallet.MiAccountInformationClick(Sender: TObject);
   i : Integer;
   opr : TOperationResume;
 begin
-
   accn := -1;
   title := '';
   strings := TStringList.Create;
@@ -935,8 +923,6 @@ procedure TFRMWallet.MiDecodePayloadClick(Sender: TObject);
   end;
 end;
 
-
-
 procedure TFRMWallet.MiFindaccountClick(Sender: TObject);
 begin
   PageControl.ActivePage := tsMyAccounts;