diff --git a/Units/MMLAddon/PSInc/uPSC_mml.pas b/Units/MMLAddon/PSInc/uPSC_mml.pas
index c8a428f..e01f86f 100644
--- a/Units/MMLAddon/PSInc/uPSC_mml.pas
+++ b/Units/MMLAddon/PSInc/uPSC_mml.pas
@@ -105,6 +105,7 @@ begin
     RegisterProperty('Name','String',iptrw);
     RegisterMethod('function ToString : string');
     RegisterMethod('function LoadFromString(const s : string) : boolean;');
+    RegisterMethod('procedure Normalize;');
     RegisterMethod('function Valid:boolean');
     RegisterMethod('procedure DeletePoint( Point : integer);');
     RegisterMethod('procedure SwapPoint(p1,p2 : integer);');
diff --git a/Units/MMLAddon/PSInc/uPSR_mml.pas b/Units/MMLAddon/PSInc/uPSR_mml.pas
index fb3e77c..d878cc8 100644
--- a/Units/MMLAddon/PSInc/uPSR_mml.pas
+++ b/Units/MMLAddon/PSInc/uPSR_mml.pas
@@ -159,6 +159,7 @@ begin
     RegisterMethod(@TMDTM.Free,'Free');
     RegisterMethod(@TMDTM.ToString,'ToString');
     RegisterMethod(@TMDTM.LoadFromString,'LoadFromString');
+    RegisterMethod(@TMDTM.Normalize,'Normalize');
     RegisterMethod(@TMDTM.Valid,'Valid');
     RegisterMethod(@TMDTM.DeletePoint,'DeletePoint');
     RegisterMethod(@TMDTM.SwapPoint,'SwapPoint');