diff --git a/Units/MMLAddon/PSInc/Wrappers/math.inc b/Units/MMLAddon/PSInc/Wrappers/math.inc
index f2e4385..b45a95e 100644
--- a/Units/MMLAddon/PSInc/Wrappers/math.inc
+++ b/Units/MMLAddon/PSInc/Wrappers/math.inc
@@ -192,107 +192,107 @@ begin
   result := RolDWord(num,shift);
 end;
 
-function ps_tan(e: extended): extended;
+function ps_tan(e: extended): extended; extdecl;
 begin
   result:= tan(e);
 end;
 
-function ps_radians(e: extended): extended;
+function ps_radians(e: extended): extended; extdecl;
 begin
   result := e / 180.0 * pi;
 end;
 
-function ps_degrees(e: extended): extended;
+function ps_degrees(e: extended): extended; extdecl;
 begin
   result := e * 180.0 / pi;
 end;
 
-function ps_ArcSin(e: extended): extended;
+function ps_ArcSin(e: extended): extended; extdecl;
 begin
   result := ArcSin(e);
 end;
 
-function ps_ArcCos(e: extended): extended;
+function ps_ArcCos(e: extended): extended; extdecl;
 begin
   result := ArcCos(e);
 end;
 
-function ps_ArcTan(e: extended): extended;
+function ps_ArcTan(e: extended): extended; extdecl;
 begin
   result := ArcTan(e);
 end;
 
-function ps_Cotan(e: extended): extended;
+function ps_Cotan(e: extended): extended; extdecl;
 begin
   result := Cotan(e);
 end;
 
-function ps_Secant(e: extended): extended;
+function ps_Secant(e: extended): extended; extdecl;
 begin
   result := Secant(e);
 end;
 
-function ps_Cosecant(e: extended): extended;
+function ps_Cosecant(e: extended): extended;extdecl;
 begin
   result := Cosecant(e);
 end;
 
-function ps_Cot(e: extended): extended;
+function ps_Cot(e: extended): extended; extdecl;
 begin
   result := Cot(e);
 end;
 
-function ps_Sec(e: extended): extended;
+function ps_Sec(e: extended): extended; extdecl;
 begin
   result := Sec(e);
 end;
 
-function ps_Csc(e: extended): extended;
+function ps_Csc(e: extended): extended; extdecl;
 begin
   result := Csc(e);
 end;
 
-function ps_Cosh(e: extended): extended;
+function ps_Cosh(e: extended): extended; extdecl;
 begin
   result := Cosh(e);
 end;
 
-function ps_Sinh(e: extended): extended;
+function ps_Sinh(e: extended): extended; extdecl;
 begin
   result := Sinh(e);
 end;
 
-function ps_Tanh(e: extended): extended;
+function ps_Tanh(e: extended): extended; extdecl;
 begin
   result := tanh(e);
 end;
 
-function ps_CotH(e: extended): extended;
+function ps_CotH(e: extended): extended;extdecl;
 begin
   result := cotan(e);
 end;
 
-function ps_SecH(e: extended): extended;
+function ps_SecH(e: extended): extended; extdecl;
 begin
   result := secant(e);
 end;
 
-function ps_CscH(e: extended): extended;
+function ps_CscH(e: extended): extended;extdecl;
 begin
   result := Csc(e);
 end;
 
-function ps_ArcCosh(e: extended): extended;
+function ps_ArcCosh(e: extended): extended;extdecl;
 begin
   result := ArcCosh(e);
 end;
 
-function ps_ArcSinh(e: extended): extended;
+function ps_ArcSinh(e: extended): extended; extdecl;
 begin
   result := ArcSinh(e);
 end;
 
-function DecRet(e: Extended): Extended;
+function DecRet(e: Extended): Extended; extdecl;
 begin
   result := e - Trunc(e);
 end;
diff --git a/Units/MMLAddon/PSInc/Wrappers/strings.inc b/Units/MMLAddon/PSInc/Wrappers/strings.inc
index 4c8fc82..aea9d05 100644
--- a/Units/MMLAddon/PSInc/Wrappers/strings.inc
+++ b/Units/MMLAddon/PSInc/Wrappers/strings.inc
@@ -1 +1 @@
-function ps_Format(const fmt : string;const args : array of const) : string; extdecl;
begin;
  Result := Format(fmt,Args);
end;

function ps_Capitalize(str : string) : string;extdecl;
begin
  result := Capitalize(str);
end;

function ps_CompressString(const Str : string) : string; extdecl;
begin
  result := CompressString(str);
end;

function ps_DecompressString(const Compressed : string) : string; extdecl;
begin
  result := DecompressString(Compressed);
end;

function ps_Base64Encode(const str : string) : string; extdecl;
begin
  result := Base64Encode(str);
end;

function ps_Base64Decode(const str : string) : string; extdecl;
begin
  result := Base64Decode(str);
end;

function ps_ExtractFromStr( Str : string; Extract : StrExtr) : string; extdecl;
begin
  result := extractfromstr(str,extract);
end;

function ps_BoolToStr(bool : boolean) : string; extdecl;
begin;
  result := BoolToStr(bool,true);
end;

function ps_Replace(Text, FindStr, ReplaceStr: string; Flags: TReplaceFlags): string; extdecl;
begin;
  result := StringReplace(Text,FindStr,ReplaceStr,Flags);
end;

function ps_IntToStr(int : integer) : string; extdecl;
begin
  result := inttostr(int);
end;

function ps_FloatToStr(flt : extended) : string; extdecl;
begin
  result := floattostr(flt);
end;

function ps_StrToInt(value: String): Integer; extdecl;
begin
  result := StrToInt(value);
end;

function ps_StrToIntDef(value: String; default: Integer): Integer; extdecl;
begin
  result := StrToIntDef(value,default);
end;

function ps_StrToFloat(value: String): Extended; extdecl;
begin
  result := StrToFloat(value);
end;

function ps_StrToFloatDef(value: String; default: Extended): Extended; extdecl;
begin
  result := StrToFloatDef(value,default);
end;

function ps_StrToBool(value: String): Boolean;extdecl;
begin
  result := StrToBool(value);
end;

function ps_StrToBoolDef(value: String; default: Boolean): Boolean; extdecl;
begin
  result := StrToBoolDef(value,default);
end;

function ps_Between(s1, s2, str: string): string; extdecl;
var
  I,J : integer;
begin;
  Result := '';
  I := pos(s1,str);
  if I > 0 then
  begin;
    i := i + length(s1);
    j := posex(s2,str,i);
    if j > 0 then
      Result := copy(str,i,j-i);
  end;
end;

function ps_Implode(Glue : string; Pieces: TStringArray): string;extdecl;
begin
  result := implode(glue,pieces);
end;

function ps_Explode(del, str: string): TStringArray;extdecl;
begin
  result := Explode(del,str);
end;
procedure ps_ExplodeWrap(del, str: string; var res : TStringArray);extdecl;
begin
  res := Explode(del,str);
end;

function ps_Padl(s: String; i: longInt): String;extdecl;
begin
  result := StringOfChar(Char(' '), i - length(s)) + s;
end;

function ps_Padz(s: String; i: longInt): String;extdecl;
begin
  result := StringOfChar(Char('0'), i - length(s)) + s;
end;

function ps_Padr(s: String; i: longInt): String;extdecl;
begin
  result := s + StringOfChar(Char(' '), i - Length(s));
end;

function ps_ExecRegExpr( const RegExpr, InputStr : String) : boolean;extdecl;
begin
  result := execregexpr(RegExpr,InputStr);
end;

procedure ps_SplitRegExpr( const RegExpr, InputStr : String; Pieces : TStrings);extdecl;
begin
  SplitRegExpr(RegExpr,InputStr,Pieces);
end;

function ps_ReplaceRegExpr( const RegExpr, InputStr, ReplaceStr : String; UseSubstitution : boolean) : String;extdecl;
begin
  result := ReplaceRegExpr(RegExpr,InputStr,ReplaceStr,UseSubstitution);
end;

function ps_posex(needle, haystack: String; offset: integer): integer;
begin
  result := posex(needle, haystack, offset);
end;
\ No newline at end of file
+function ps_Format(const fmt : string;const args : array of const) : string; extdecl;
begin;
  Result := Format(fmt,Args);
end;

function ps_Capitalize(str : string) : string;extdecl;
begin
  result := Capitalize(str);
end;

function ps_CompressString(const Str : string) : string; extdecl;
begin
  result := CompressString(str);
end;

function ps_DecompressString(const Compressed : string) : string; extdecl;
begin
  result := DecompressString(Compressed);
end;

function ps_Base64Encode(const str : string) : string; extdecl;
begin
  result := Base64Encode(str);
end;

function ps_Base64Decode(const str : string) : string; extdecl;
begin
  result := Base64Decode(str);
end;

function ps_ExtractFromStr( Str : string; Extract : StrExtr) : string; extdecl;
begin
  result := extractfromstr(str,extract);
end;

function ps_BoolToStr(bool : boolean) : string; extdecl;
begin;
  result := BoolToStr(bool,true);
end;

function ps_Replace(Text, FindStr, ReplaceStr: string; Flags: TReplaceFlags): string; extdecl;
begin;
  result := StringReplace(Text,FindStr,ReplaceStr,Flags);
end;

function ps_IntToStr(int : integer) : string; extdecl;
begin
  result := inttostr(int);
end;

function ps_FloatToStr(flt : extended) : string; extdecl;
begin
  result := floattostr(flt);
end;

function ps_StrToInt(value: String): Integer; extdecl;
begin
  result := StrToInt(value);
end;

function ps_StrToIntDef(value: String; default: Integer): Integer; extdecl;
begin
  result := StrToIntDef(value,default);
end;

function ps_StrToFloat(value: String): Extended; extdecl;
begin
  result := StrToFloat(value);
end;

function ps_StrToFloatDef(value: String; default: Extended): Extended; extdecl;
begin
  result := StrToFloatDef(value,default);
end;

function ps_StrToBool(value: String): Boolean;extdecl;
begin
  result := StrToBool(value);
end;

function ps_StrToBoolDef(value: String; default: Boolean): Boolean; extdecl;
begin
  result := StrToBoolDef(value,default);
end;

function ps_Between(s1, s2, str: string): string; extdecl;
var
  I,J : integer;
begin;
  Result := '';
  I := pos(s1,str);
  if I > 0 then
  begin;
    i := i + length(s1);
    j := posex(s2,str,i);
    if j > 0 then
      Result := copy(str,i,j-i);
  end;
end;

function ps_Implode(Glue : string; Pieces: TStringArray): string;extdecl;
begin
  result := implode(glue,pieces);
end;

function ps_Explode(del, str: string): TStringArray;extdecl;
begin
  result := Explode(del,str);
end;
procedure ps_ExplodeWrap(del, str: string; var res : TStringArray);extdecl;
begin
  res := Explode(del,str);
end;

function ps_Padl(s: String; i: longInt): String;extdecl;
begin
  result := StringOfChar(Char(' '), i - length(s)) + s;
end;

function ps_Padz(s: String; i: longInt): String;extdecl;
begin
  result := StringOfChar(Char('0'), i - length(s)) + s;
end;

function ps_Padr(s: String; i: longInt): String;extdecl;
begin
  result := s + StringOfChar(Char(' '), i - Length(s));
end;

function ps_ExecRegExpr( const RegExpr, InputStr : String) : boolean;extdecl;
begin
  result := execregexpr(RegExpr,InputStr);
end;

procedure ps_SplitRegExpr( const RegExpr, InputStr : String; Pieces : TStrings);extdecl;
begin
  SplitRegExpr(RegExpr,InputStr,Pieces);
end;

function ps_ReplaceRegExpr( const RegExpr, InputStr, ReplaceStr : String; UseSubstitution : boolean) : String;extdecl;
begin
  result := ReplaceRegExpr(RegExpr,InputStr,ReplaceStr,UseSubstitution);
end;

function ps_posex(needle, haystack: String; offset: integer): integer; extdecl;
begin
  result := posex(needle, haystack, offset);
end;
\ No newline at end of file