diff --git a/gbcomp/Gbconst.pas b/gbcomp/Gbconst.pas
index 54d689c..6cf6ec7 100644
--- a/gbcomp/Gbconst.pas
+++ b/gbcomp/Gbconst.pas
@@ -215,10 +215,10 @@ function NormalizeClipColor(cIn : TColor): TColor;
     Result:= cIn;
   end else begin
     case (byte(RgbToGray(cIn)) SHR 6) of
-      0 : Result := clBlack;
-      1 : Result := clDkGray;
-      2 : Result := clLtGray;
-      3 : Result := clWhite;
+      0  : Result := clBlack;
+      1  : Result := clDkGray;
+      2  : Result := clLtGray;
+      else Result := clWhite;
     end;
   end;
 end;