diff --git a/source/main.pas b/source/main.pas
index 396faac4..5da7f682 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -4826,6 +4826,7 @@ end;
 procedure TMainForm.AnyGridGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
 begin
   NodeDataSize := SizeOf(Cardinal);
+  LogSQL('NodeDataSize of '+Sender.Name+': '+IntToStr(NodeDataSize)+', must not be smaller than Pointer size: '+IntToStr(SizeOf(Pointer)), lcDebug);
 end;