Conexão ADO em runtime

[SQLServer]
HostName=192.168.0.1
DatabaseName=db_estoque

function TXxxx.ObtemStringConexao: string;
const
  MODELO_STRING_CONEXAO =
    ´Provider=SQLOLEDB.1;Password=;Persist Security Info=True;´ +
    ´User ID=;Initial Catalog=;Data Source=´;
var
  INI: TIniFile;
  StringConexao, Database, Server: string;
begin
  INI := TIniFile.Create(ExtractFileDir(Application.ExeName) + ´\Config.ini´);
  try
    Database := INI.ReadString(´SQLServer´, ´DatabaseName´, ´´);
    Server := INI.ReadString(´SQLServer´, ´HostName´, ´´);

    StringConexao := MODELO_STRING_CONEXAO;
    StringConexao := StringReplace(StringConexao, ´´, Database, []);
    StringConexao := StringReplace(StringConexao, ´´, Server, []);
    StringConexao := StringReplace(StringConexao, ´´, ´usuario_teste´, []);
    StringConexao := StringReplace(StringConexao, ´´, ´senha_teste´, []);

    Result := StringConexao;
  finally
    INI.Free;
  end;
end;

procedure TXxxx.ADOConnection1BeforeConnect(Sender: TObject);
begin
  ADOConnection1.ConnectionString := ObtemStringConexao;
end;