diff --git a/ide/customformeditor.pp b/ide/customformeditor.pp
index 3cf22b5c69..11beacef7b 100644
--- a/ide/customformeditor.pp
+++ b/ide/customformeditor.pp
@@ -1356,6 +1356,8 @@ Begin
       end;
     except
       on e: Exception do begin
+        DebugLn(e.Message);
+        DumpExceptionBackTrace;
         MessageDlg(lisErrorMovingComponent,
           Format(lisErrorMovingComponent2, [Temp.Component.Name,
             Temp.Component.ClassName]),