diff --git a/lcl/interfaces/win32/win32wscustomlistview.inc b/lcl/interfaces/win32/win32wscustomlistview.inc
index a7183d3838..9d35d2a652 100644
--- a/lcl/interfaces/win32/win32wscustomlistview.inc
+++ b/lcl/interfaces/win32/win32wscustomlistview.inc
@@ -311,10 +311,13 @@ var
 
     if Assigned(Item) then
     begin
+      //https://learn.microsoft.com/en-us/windows/win32/controls/lvn-itemchanging
+      //Returns TRUE to prevent the change, or FALSE to allow the change
+      //So the opposite of the result of CanChange function
       if ALV.CanChange(Item, nm^.uChanged) then
-        MsgResult := 0
+        MsgResult := 0 //Ord(BOOL(False))
       else
-        MsgResult := 1;
+        MsgResult := 1; //Ord(BOOL(True))
     end;
     WinProcess := False;
   end;