分解字符串的子字符串 键值对

slConnection := TStringList.Create;
slConnection.Delimiter := '&';
    slConnection.DelimitedText := DBConStr;
    ConnectionConfig.Server := slConnection.Values['Server'];
    ConnectionConfig.Username := slConnection.Values['Username'];
    ConnectionConfig.Password := slConnection.Values['Password'];
    ConnectionConfig.Port := StrToInt(slConnection.Values['Port']);
    ConnectionConfig.Database := slConnection.Values['Database'];

字符串样式：　DBConnectionString=Server=192.168.90.14&UserName=***&Password=***&Database=***&Port=13306