FIX: Double binary compare

src/fdiffer.lfm

@@ -13,7 +13,6 @@ object frmDiffer: TfrmDiffer
   OnDestroy = FormDestroy
   OnKeyDown = FormKeyDown
   OnResize = FormResize
-  OnShow = FormShow
   SessionProperties = 'actAutoCompare.Checked;actIgnoreCase.Checked;actIgnoreWhiteSpace.Checked;actKeepScrolling.Checked;actLineDifferences.Checked;actPaintBackground.Checked;Height;Left;Top;Width;WindowState'
   ShowHint = True
   ShowInTaskBar = stAlways

src/fdiffer.pas

@@ -201,7 +201,6 @@ type
     procedure FormRestoreProperties(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormResize(Sender: TObject);
-    procedure FormShow(Sender: TObject);
     procedure btnCancelClick(Sender: TObject);
     procedure tmProgressTimer(Sender: TObject);
   private
@@ -782,12 +781,6 @@ begin
   pnlLeft.Width:= (ClientWidth div 2) - (Splitter.Width div 2);
 end;
 
-procedure TfrmDiffer.FormShow(Sender: TObject);
-begin
-  if actBinaryCompare.Checked and actAutoCompare.Checked then
-    actStartCompare.Execute;
-end;
-
 procedure TfrmDiffer.btnCancelClick(Sender: TObject);
 begin
   FCancel:= True;