procedure FlushIni(FileName: string);
var
 {$IFDEF WIN32}
 CFileName: array[0..MAX_PATH] of WideChar;
 {$ELSE}
 CFileName: array[0..127] of Char;
 {$ENDIF}
begin
 {$IFDEF WIN32}
 if (Win32Platform = VER_PLATFORM_WIN32_NT) then
 WritePrivateProfileStringW(nil, nil, nil, StringToWideChar(FileName,
 CFileName, MAX_PATH))
 else
 WritePrivateProfileString(nil, nil, nil, PChar(FileName));
 {$ELSE}
 WritePrivateProfileString(nil, nil, nil, StrPLCopy(CFileName,
 FileName, SizeOf(CFileName) - 1));
 {$ENDIF}
end;