diff --git a/Units/MMLAddon/PSInc/uPSC_mml.pas b/Units/MMLAddon/PSInc/uPSC_mml.pas
index 21b7d2e..c99813b 100644
--- a/Units/MMLAddon/PSInc/uPSC_mml.pas
+++ b/Units/MMLAddon/PSInc/uPSC_mml.pas
@@ -44,6 +44,7 @@ begin
     RegisterMethod('procedure Free');
     RegisterMethod('function SaveToFile(const FileName : string) :boolean;');
     RegisterMethod('procedure LoadFromFile(const FileName : string);');
+    RegisterMethod('procedure LoadFromTBitmap(bmp: TBitmap);');
     RegisterProperty('Width','Integer',iptR);
     RegisterProperty('Height','Integer',iptR);
     RegisterProperty('Index','Integer',iptR);
diff --git a/Units/MMLAddon/PSInc/uPSR_mml.pas b/Units/MMLAddon/PSInc/uPSR_mml.pas
index a472367..eec1b51 100644
--- a/Units/MMLAddon/PSInc/uPSR_mml.pas
+++ b/Units/MMLAddon/PSInc/uPSR_mml.pas
@@ -142,6 +142,7 @@ begin
     RegisterMethod(@TMufasaBitmap.free,'FREE');
     RegisterMethod(@TMufasaBitmap.SaveToFile, 'SAVETOFILE');
     RegisterMethod(@TMufasaBitmap.LoadFromFile, 'LOADFROMFILE');
+    RegisterMethod(@TMufasaBitmap.LoadFromTBitmap, 'LOADFROMTBITMAP');
   end;
 end;