用ini文件如何保存和读取数据库程序第一次设置的数据源？(ADO+Access)(100分)

我的代码如下：
procedure TMainForm.M_configClick(Sender: TObject);
begin
MainDataModule.AC.Close;
EditConnectionString(MainDataModule.AC);
MainDataModule.AC.Open;
//问题是否出在这是否在此要写一个取得MainDataModule.AC的ConnectionString的函数？
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
Ini := TIniFile.Create(ChangeFileExt(Paramstr(0),'Ini'));
try
//读取
MainDataModule.AC.ConnectionString :=
Ini.ReadString('Data','Connection',MainDataModule.AC.ConnectionString);
finally
Ini.Free;
end;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
try
//设定
Ini.WriteString('Data','Connection',MainDataModule.AC.ConnectionString);
finally
Ini.Free;
end;
end;

直接把连接字符串的所有内容都保存进去就行了

请问abc_xp:"直接把连接字符串的所有内容都保存进去就行了"的操作方法？
我现在就是不明白该如何？

谁能指点一二？

abc_xp大侠说的就是着个意思:

procedure TMainForm.SaveConnStr(strConn: string);
var
sltConn:TStringlist;
begin
sltConn := TStringList.Create;
sltConn.Text := strConn;
sltConn.SaveToFile(sDir+'AdoConn.ini');
sltConn.free;
end;

function TMainForm.LoadConnStr(): String ;
var
sltConn:TStringlist;
begin
sltConn := TStringList.Create;
if FileExists(sDir+'AdoConn.Den') then begin
sltConn.LoadFromFile(sDir+'AdoConn.ini');
Result:= sltConn.text;
end else Result := '';
sltConn.free;
end;

接受答案了.