求一段配置文件代码解决思路

求一段配置文件代码
我想要做一个配置文件，实现程序转移到别的电脑上，能改快速修改程序中的数据库名称等。请问怎么弄啊？？全部分全部献上。拜托~

[解决办法]

Delphi(Pascal) code

procedure TForm1.BitBtn1Click(Sender: TObject);begin  Data1:= StrToInt(LabeledEdit1.Text);  Data2:= EnCrypt(Trim(LabeledEdit2.Text),'S&s');  Data3:= StrToFloat(LabeledEdit3.Text);  Data4:= CheckBox1.Checked;  IniFile.WriteInteger('System','Data1',Data1);  //整型  IniFile.WriteString('Mark','Data2',Data2);     //字符串型  IniFile.WriteFloat('Pi','Data3',Data3);        //浮点型  IniFile.WriteBool('Status','Data4',Data4);     //布尔型  IniFile.Free;  Close;end;
[解决办法]
Delphi(Pascal) code
var  dbini:      TIniFile;  Host:       string;  User:       string;  Passwd:     string;  database:   string;begin  if not ADOConnection1.Connected then  begin    dbini := TIniFile.Create('.\DataBase.ini');    try      Host := dbini.ReadString('Dbinfo','Host','127.0.0.1');      User := dbini.ReadString('Dbinfo','User','sa');      Passwd := dbini.ReadString('Dbinfo','Passwd',   '');      Database := dbini.ReadString('Dbinfo','Database','');    finally      dbini.Free;    end;    ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info = False;User ID = ' + User +                                       '; Password = ' + Passwd +                                       '; Initial Catalog = ' + database +                                       '; Data Source = ' + Host;     //其它操作