1 files changed, 9 insertions, 4 deletions
diff --git a/Game/Code/Screens/UScreenTop5.pas b/Game/Code/Screens/UScreenTop5.pas
index f9de4114..4971d12a 100644
--- a/Game/Code/Screens/UScreenTop5.pas
+++ b/Game/Code/Screens/UScreenTop5.pas
@@ -2,6 +2,11 @@ unit UScreenTop5;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+
+
 uses
   UMenu, SDL, SysUtils, UDisplay, UMusic, USongs, UThemes, ULCD;
 
@@ -131,7 +136,7 @@ function TScreenTop5.Draw: boolean;
   C:      integer;}
 begin
   // Singstar - let it be...... with 6 statics
-{  if PlayersPlay = 6 then begin
+(*  if PlayersPlay = 6 then begin
     for Item := 4 to 6 do begin
       if ScreenAct = 1 then P := Item-4;
       if ScreenAct = 2 then P := Item-1;
@@ -152,10 +157,10 @@ begin
           Static[StaticBoxLightest[Item]].Texture.ColG,
           Static[StaticBoxLightest[Item]].Texture.ColB,
           'P4Dark');
-      end;}
+      end; }
 
-{    end;
-  end;}
+    end;
+  end; *)
 
   inherited Draw;
 end;