FIX, reenable directory info on linux systems

Author: PascalCorpsman

unit1.lfm

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

unit1.pas

@@ -99,7 +99,7 @@
     Procedure cbDirRightKeyDown(Sender: TObject; Var Key: Word;
       Shift: TShiftState);
     Procedure cbDirRightKeyPress(Sender: TObject; Var Key: char);
-    procedure cbDirRightSelect(Sender: TObject);
+    Procedure cbDirRightSelect(Sender: TObject);
     Procedure FormActivate(Sender: TObject);
     Procedure FormClose(Sender: TObject; Var CloseAction: TCloseAction);
     Procedure FormCloseQuery(Sender: TObject; Var CanClose: Boolean);
@@ -683,10 +683,10 @@
   End;
 End;
 
-procedure TForm1.cbDirRightSelect(Sender: TObject);
-begin
+Procedure TForm1.cbDirRightSelect(Sender: TObject);
+Begin
   LoadDir(cbDirRight.Text, fRightView);
-end;
+End;
 
 Procedure TForm1.FormActivate(Sender: TObject);
 Var
@@ -1778,9 +1778,9 @@ procedure TForm1.cbDirRightSelect(Sender: TObject);
     Quick(1, StartOfFiles - 1);
     // Sortieren der Dateien StartOfFiles .. Ende
     Quick(StartOfFiles, View.ListView.items.Count - 1);
-{$IFDEF Windows}
     // Ein paar User Infos ausgeben.
     view.StatusBar.Panels[0].Text := inttostr(DirectoryCount) + ' Folders, ' + inttostr(FileCount) + ' Files (' + FileSizeToString(TotalFileSize) + '), Free disk space: ' + FileSizeToString(GetFreeDiskSpaceOf(Dir));
+{$IFDEF Windows}
   End
   Else Begin
     // Der User will die Verzeichnissliste haben