Store settings as ~/.config/MorseRunner.ini instead of in the current directory

--- a/Ini.pas
+++ b/Ini.pas
@@ -64,9 +64,12 @@ uses
 
 procedure FromIni;
 var
+  F: string;
   V: integer;
 begin
-  with TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini')) do
+  F := ChangeFileExt(GetAppConfigFile(false), '.ini');
+  ForceDirectories(F);
+  with TIniFile.Create(F) do
     try
       MainForm.SetMyCall(ReadString(SEC_STN, 'Call', Call));
       MainForm.SetPitch(ReadInteger(SEC_STN, 'Pitch', 3));
@@ -120,9 +123,12 @@ end;
 
 procedure ToIni;
 var
+  F: string;
   V: integer;
 begin
-  with TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini')) do
+  F := ChangeFileExt(GetAppConfigFile(false), '.ini');
+  ForceDirectories(F);
+  with TIniFile.Create(F) do
     try
       WriteString(SEC_STN, 'Call', Call);
       WriteInteger(SEC_STN, 'Pitch', MainForm.ComboBox1.ItemIndex);
--- a/MorseRunner.lpr
+++ b/MorseRunner.lpr
@@ -46,7 +46,7 @@ begin
 
   Application.Scaled:=True;
   Application.Initialize;
-  Application.Title := 'Morse Runner';
+  Application.Title := 'MorseRunner';
   Application.CreateForm(TMainForm, MainForm);
   Application.CreateForm(TScoreDialog, ScoreDialog);
   Application.Run;
