diff --git a/components/codetools/extractproctool.pas b/components/codetools/extractproctool.pas
index 1d7884a44a..b56d7afcbc 100644
--- a/components/codetools/extractproctool.pas
+++ b/components/codetools/extractproctool.pas
@@ -32,6 +32,12 @@
   ToDo:
     - check if selection bounds on statement bounds
     - with statements
+
+  Explode With Blocks todos:
+    - check if selection bounds on statement bounds
+    - keep Begin..End in case
+    - support Expressions
+    - dialog in cody to replace a long expression with a short local variable
 }
 unit ExtractProcTool;