diff --git a/Units/MMLAddon/LPInc/Wrappers/lp_file.inc b/Units/MMLAddon/LPInc/Wrappers/lp_file.inc
index ff31972..c2857bf 100644
--- a/Units/MMLAddon/LPInc/Wrappers/lp_file.inc
+++ b/Units/MMLAddon/LPInc/Wrappers/lp_file.inc
@@ -83,6 +83,11 @@ begin
   PStringArray(Result)^ := ps_GetDirectories(Pstring(Params^[0])^);
 end;
 
+procedure Lape_DeleteFile(const Params: PParamArray; const Result: Pointer);
+begin
+  PBoolean(Result)^ := ps_DeleteFile(Pstring(Params^[0])^);
+end;
+
 procedure Lape_WriteINI(const Params: PParamArray);
 begin
   ps_WriteINI(Pstring(Params^[0])^, Pstring(Params^[1])^, Pstring(Params^[2])^, Pstring(Params^[3])^);
diff --git a/Units/MMLAddon/LPInc/lpexportedmethods.inc b/Units/MMLAddon/LPInc/lpexportedmethods.inc
index fa46446..7af4adf 100644
--- a/Units/MMLAddon/LPInc/lpexportedmethods.inc
+++ b/Units/MMLAddon/LPInc/lpexportedmethods.inc
@@ -216,6 +216,7 @@ AddGlobalFunc('function CreateDirectory(const DirectoryName: string): boolean',
 AddGlobalFunc('function ForceDirectores(const dir: string): boolean', @Lape_ForceDirectores);
 AddGlobalFunc('function GetFiles(const Path, Ext: string): TStringArray', @Lape_GetFiles);
 AddGlobalFunc('function GetDirectories(const path: string): TStringArray', @Lape_GetDirectories);
+AddGlobalFunc('function DeleteFile(const Filename: string): Boolean',  @Lape_DeleteFile);
 AddGlobalFunc('procedure WriteINI(const Section, KeyName, NewString, FileName: string);', @Lape_WriteINI);
 AddGlobalFunc('function ReadINI(const Section, KeyName, FileName: string): string', @Lape_ReadINI);
 AddGlobalFunc('procedure DeleteINI(const Section, KeyName, FileName: string);', @Lape_DeleteINI);