diff --git a/Units/MMLAddon/LPInc/Wrappers/lp_ocr.inc b/Units/MMLAddon/LPInc/Wrappers/lp_ocr.inc
index 16ab108ab..3af2494f4 100644
--- a/Units/MMLAddon/LPInc/Wrappers/lp_ocr.inc
+++ b/Units/MMLAddon/LPInc/Wrappers/lp_ocr.inc
@@ -65,7 +65,7 @@ end;
 
 procedure Lape_FilterUpTextByCharacteristics(const Params: PParamArray); lape_extdecl
 begin
-  ps_FilterUpTextByCharacteristics(ps_GetMufasaBitmap(PInteger(Params^[0])^));
+  ps_FilterUpTextByCharacteristics(TMufasaBitmap(Params^[0]^));
 end;
 
 procedure Lape_SetUpTextFilter(const Params: PParamArray); lape_extdecl
diff --git a/Units/MMLAddon/LPInc/lpexportedmethods.inc b/Units/MMLAddon/LPInc/lpexportedmethods.inc
index 8064afccc..e4276a0f8 100644
--- a/Units/MMLAddon/LPInc/lpexportedmethods.inc
+++ b/Units/MMLAddon/LPInc/lpexportedmethods.inc
@@ -311,7 +311,7 @@ AddGlobalFunc('function GetTextAtEx(const xs,ys,xe,ye, minvspacing, maxvspacing,
 //AddGlobalFunc('function LoadSystemFont(const SysFont: TFont; const FontName: string): boolean', @Lape_LoadSystemFont);
 AddGlobalFunc('function LoadFont(const FontName: string; shadow: boolean): boolean', @Lape_LoadFont);
 AddGlobalFunc('function FreeFont(const FontName: string): boolean', @Lape_FreeFont);
-AddGlobalFunc('procedure ocr_FilterUpTextByCharacteristics(bmp: Integer);', @Lape_FilterUpTextByCharacteristics);
+AddGlobalFunc('procedure ocr_FilterUpTextByCharacteristics(bmp: TMufasaBitmap);', @Lape_FilterUpTextByCharacteristics);
 AddGlobalFunc('procedure SetUpTextFilter(filterdata: TOcrFilterDataArray);', @Lape_SetUpTextFilter);
 AddGlobalFunc('procedure ResetUpTextFilter;', @Lape_ResetUpTextFilter);