diff --git a/source/helpers.pas b/source/helpers.pas
index a095416c..3cf83df5 100644
--- a/source/helpers.pas
+++ b/source/helpers.pas
@@ -92,6 +92,7 @@ type
   function GetTempDir: String;
   function GetDBObjectType( TableStatus: TFields ): Byte;
   procedure SetWindowSizeGrip(hWnd: HWND; Enable: boolean);
+  procedure SaveUnicodeFile(Filename: String; Text: WideString);
 
 var
   MYSQL_KEYWORDS             : TStringList;
@@ -2352,6 +2353,26 @@ begin
 end;
 
 
+{**
+  Save a textfile with unicode
+}
+procedure SaveUnicodeFile(Filename: String; Text: WideString);
+var
+  f: TFileStream;
+  header: array[0..1] of Byte;
+begin
+  header[0] := $FF;
+  header[1] := $FE;
+  f := TFileStream.Create(Filename, fmCreate or fmOpenWrite);
+  try
+    f.WriteBuffer(header, 2);
+    f.WriteBuffer(Pointer(Text)^, Length(Text) * 2);
+  finally
+    f.Free;
+  end;
+end;
+
+
 initialization