Try this:

= AddSection('MyIni.ini', 'COMMON')

PROCEDURE AddSection(cIniFile, cSection)
* Input: INI file name and section name
	DECLARE WritePrivateProfileSection IN kernel32;
		STRING lpAppName, STRING lpString, STRING lpFileName
	= WritePrivateProfileSection(cSection, '', cIniFile)

If called with empty lpString the WritePrivateProfileSection usually deletes the existing keys and values for the named section.

More INI functions and code samples (WinAPI):
http://www.news2news.com/vfp/?group=62

GetPrivateProfileInt
GetPrivateProfileSection
GetPrivateProfileSectionNames
GetPrivateProfileString
GetPrivateProfileStruct
WritePrivateProfileSection
WritePrivateProfileString
WritePrivateProfileStruct