Вырезать данные из строки

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString s = "a1111b2222c3333d4444";
    int a, b, c, d;
    for (int i = 1; i <= s.Length() - 4; i += 5)
    {
        switch (s[i])
        {
            case 'a':
                a = s.SubString(i + 1, 4).ToInt();
                break;
            case 'b':
                b = s.SubString(i + 1, 4).ToInt();
                break;
            case 'c':
                c = s.SubString(i + 1, 4).ToInt();
                break;
            case 'd':
                d = s.SubString(i + 1, 4).ToInt();
                break;
        }
    }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString s = "a1111b2222c3333d4444";
    int a = GetValue('a', s),
        b = GetValue('b', s),
        c = GetValue('c', s),
        d = GetValue('d', s);
}
//---------------------------------------------------------------------------
int GetValue(char param, AnsiString str)
{
    int startValuePos = str.Pos(param) + 1;
    int lengthValue = 1;
 
    while (startValuePos + lengthValue <= str.Length() && isdigit(str[startValuePos + lengthValue]))
        lengthValue++;
 
    return str.SubString(startValuePos, lengthValue).ToInt();
}