delphi 用ini配置文件来连接adoconnection控件

procedure TForm1.FormCreate(Sender: TObject);
var filename:string;
    databaseset:Tinifile;
begin
    filename:=ExtractFilePath(Paramstr(0))+'databaseset.ini';
    //设置配置文件的路径为执行程序目录，如果不设置目录的话程序会把配置文件放到windows系统目录中去。
    databaseset:=TInifile.Create(filename);
    try   //连接数据库
      ADOConnYK.Close;  //ADOConnYK为ADOConnection控件
      ADOConnYK.ConnectionString:=databaseset.ReadString('ykconn','connstr',''); //读取数据库连接配置字符串
      ADOConnYK.Open; //如正确，连接上数据库
    Except      //配置文件不存在或者不正确，无法连接到数据库
      if Application.MessageBox('无法连接到数据库，要重新设置连接吗？','提示',MB_YESNO+MB_ICONQUESTION)=IDYES then
         begin
            ADOConnYK.Close;
            if EditConnectionString(ADOConnYK) then //重新配置连接属性
               begin
                  databaseset.W