keys: TStringList;
i, j : Integer;
resWord : TResistWord;
+ tmpStr: String;
begin
FInit := True;
try
+ // ini\83t\83@\83C\83\8b\82ª\96³\82¯\82ê\82Î\81A\83f\83t\83H\83\8b\83g\82ð\83\8a\83l\81[\83\80\82·\82é
+ if not FileExists(FilePath) then begin
+ RenameFile(ChangeFileExt(FilePath, '.default'), FilePath);
+ end;
+
// \83t\83@\83C\83\8b\82Ì\91¶\8dÝ\82ð\8am\94F
if FileExists(FilePath) then begin
ini := TMemIniFile.Create(FilePath);