FIX Wrong dir view was actualised when selection folder.

Author: PascalCorpsman

unit1.lfm

@@ -1,7 +1,7 @@
 object Form1: TForm1
   Left = 353
   Height = 626
-  Top = 120
+  Top = 92
   Width = 777
   AllowDropFiles = True
   Caption = 'Form1'

unit1.pas

@@ -622,7 +622,7 @@
   SelectDirectoryDialog1.Title := '';
   If SelectDirectoryDialog1.Execute Then Begin
     cbDirRight.Text := SelectDirectoryDialog1.FileName;
-    LoadDir(cbDirRight.text, fLeftView);
+    LoadDir(cbDirRight.text, fRightView);
   End;
 End;