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);
diff --git a/Units/MMLAddon/PSInc/Wrappers/file.inc b/Units/MMLAddon/PSInc/Wrappers/file.inc
index f2b1589..ff88571 100644
--- a/Units/MMLAddon/PSInc/Wrappers/file.inc
+++ b/Units/MMLAddon/PSInc/Wrappers/file.inc
@@ -101,6 +101,11 @@ begin
   result := GetDirectories(path);
 end;
 
+function ps_DeleteFile(const Filename: string): Boolean; extdecl;
+begin
+  Result := DeleteFileUTF8(Filename);
+end;
+
 procedure ps_WriteINI(const Section, KeyName, NewString, FileName: string);extdecl;
 var
   tempini : TIniFile;
diff --git a/Units/MMLAddon/PSInc/psexportedmethods.inc b/Units/MMLAddon/PSInc/psexportedmethods.inc
index 3cdedd5..0884b66 100644
--- a/Units/MMLAddon/PSInc/psexportedmethods.inc
+++ b/Units/MMLAddon/PSInc/psexportedmethods.inc
@@ -156,6 +156,7 @@ AddFunction(@ps_FileExists,'function FileExists (const FileName : string ) : Boo
 AddFunction(@ps_ForceDirectores,'function ForceDirectories(const dir : string) : boolean;');
 AddFunction(@ps_GetFiles,'function GetFiles(const Path, Ext : string) : TStringArray;');
 AddFunction(@ps_GetDirectories,'function GetDirectories(const path : string) : TStringArray;');
+AddFunction(@ps_DeleteFile, 'function DeleteFile(const Filename: string): Boolean;');
 AddFunction(@ps_WriteINI,'procedure WriteINI(const Section, KeyName, NewString, FileName: string);');
 AddFunction(@ps_ReadINI,'function ReadINI(const Section, KeyName, FileName: string): string;');
 AddFunction(@ps_DeleteINI,'procedure DeleteINI(const Section, KeyName, FileName: string);');