{
***函数名   : FileWriteData
***函数说明 : 创建INI配置文件并写入数据
***参数     : sFilePath: INI配置文件保存路径
***返回值   : Null
}
procedure FileWriteData(sFilePath: string);
var
  tIni : TIniFile;
begin
  try
    tIni := TIniFile.Create(sFilePath);
    try
      //创建数据库连接配置文件
      tIni.WriteString('DBConnection', 'DBType', 'Access');
      tIni.WriteString('DBConnection', 'Provider', 'Microsoft.Jet.OLEDB.4.0');
      tIni.WriteString('DBConnection', 'Data Source', 'Db\Collector.mdb');
      tIni.WriteString('DBConnection', 'Initial Catalog', '');
      tIni.WriteString('DBConnection', 'User ID', 'Admin');
      tIni.WriteString('DBConnection', 'PassWord', '');
    finally
      tIni.Free;
    end;
  except
    on e: Exception do
      Application.MessageBox(PChar('失败原因:  创建配置文件时写入数据出错!' + e.Message), '创建失败', MB_OK+MB_ICONERROR);
  end;
end;

注：需引用“IniFiles”单元。