diff --git a/udrawtim.pas b/udrawtim.pas
index 1a77933..054c230 100644
--- a/udrawtim.pas
+++ b/udrawtim.pas
@@ -14,7 +14,7 @@ type
 procedure Tim2Png(TIM: PTIM; CLUT_NUM: Integer; Image: PDrawSurf; TranspMode: Byte);
 procedure Png2Tim(Image: PDrawSurf; Dest: PTIM);
 procedure DrawClutCell(TIM: PTIM; CLUT_NUM: Integer; Grid: PDrawGrid; X, Y: Integer);
-procedure SetupCLUT(TIM: PTIM; CLUT_NUM: Integer; Grid: PDrawGrid);
+procedure SetupCLUT(TIM: PTIM; Grid: PDrawGrid);
 procedure ClearCanvas(ACanvas: PCanvas; Rect: TRect);
 procedure ClearGrid(Grid: PDrawGrid);
 
@@ -365,9 +365,9 @@ begin
   Dispose(CLUT_COLOR);
 end;
 
-procedure SetupCLUT(TIM: PTIM; CLUT_NUM: Integer; Grid: PDrawGrid);
+procedure SetupCLUT(TIM: PTIM; Grid: PDrawGrid);
 var
-  X, Y, ROWS, COLS, COLORS: Integer;
+  ROWS, COLS, COLORS: Integer;
 begin
   COLORS := GetTimColorsCount(TIM);
   COLS := Min(COLORS, 32);
diff --git a/umain.pas b/umain.pas
index 792e3c9..ccc20dc 100644
--- a/umain.pas
+++ b/umain.pas
@@ -1164,7 +1164,7 @@ begin
   grdClut.Enabled := TIMHasCLUT(TIM);
 
   if TIMHasCLUT(TIM) then
-    SetupCLUT(TIM, cbbCLUT.ItemIndex, @grdClut)
+    SetupCLUT(TIM, @grdClut)
   else
   begin
     grdClut.ColCount := 1;