diff --git a/Components/uUpdate.pas b/Components/uUpdate.pas
index ada7117..604bf05 100644
--- a/Components/uUpdate.pas
+++ b/Components/uUpdate.pas
@@ -8,7 +8,7 @@ interface
   DTO.GitHUB.Release, Pkg.JSON.ThreadingEx;
 
 const
-  ProgramVersion: double = 3.0;
+  ProgramVersion: double = 3.1;
   UpdateUrl = 'https://api.github.com/repos/JensBorrisholt/Delphi-JsonToDelphiClass/releases';
   ProgramUrl = 'https://github.com/JensBorrisholt/Delphi-JsonToDelphiClass';
 
diff --git a/Generator GUI/JsonToDelphiClass.dproj b/Generator GUI/JsonToDelphiClass.dproj
index 870c59a..6a6d432 100644
--- a/Generator GUI/JsonToDelphiClass.dproj	
+++ b/Generator GUI/JsonToDelphiClass.dproj	
@@ -209,7 +209,6 @@
                     </Platform>
                 </DeployFile>
                 <DeployFile LocalName="Win32\Debug\JsonToDelphiClass.exe" Configuration="Debug" Class="ProjectOutput"/>
-                <DeployFile LocalName="Win32\Debug\JsonToDelphiClass.exe" Configuration="Debug" Class="ProjectOutput"/>
                 <DeployFile LocalName="Win32\Release\JsonToDelphiClass.exe" Configuration="Release" Class="ProjectOutput"/>
                 <DeployClass Name="AdditionalDebugSymbols">
                     <Platform Name="iOSSimulator">
diff --git a/Generator GUI/MainFormU.pas b/Generator GUI/MainFormU.pas
index 28987f6..25159c6 100644
--- a/Generator GUI/MainFormU.pas	
+++ b/Generator GUI/MainFormU.pas	
@@ -336,7 +336,7 @@ procedure TMainForm.FormCreate(Sender: TObject);
 begin
   FJsonMapper := TPkgJsonMapper.Create;
   FJson := '';
-  Caption := 'JsonToDelphiClass - ' + FloatToJson(ProgramVersion) + '.0 | By Jens Borrisholt';
+  Caption := 'JsonToDelphiClass - ' + FormatFloat('#.0', ProgramVersion, TFormatSettings.Invariant) + ' | By Jens Borrisholt';
 
   CheckForUpdate(
     procedure(aRelease: TRelease; aErrorMessage: string)
@@ -349,7 +349,7 @@ procedure TMainForm.FormCreate(Sender: TObject);
       if (aRelease = nil) and (aErrorMessage = '') then
       begin
         Label1.StyleLookup := 'LabelGreenStyle';
-        Label1.Text := 'Your version ' + FloatToJson(uUpdate.ProgramVersion) + ' is up to date! For more information about JsonToDelphiClass click here!';
+        Label1.Text := 'Your version ' + FormatFloat('#.0', ProgramVersion, TFormatSettings.Invariant)  + ' is up to date! For more information about JsonToDelphiClass click here!';
         (Label1.FindStyleResource('text') as TText).OnClick := Label1Click;
       end
       else if aErrorMessage = '' then