Перевод из обычной формы записи в польскую

int TForm1::Priority(UnicodeString Operator) {
    double p;
 
    switch (Operator[1]) {
    case '(':
    case ')':
        p = 0;
        break;
 
    case '+':
    case '-':
        p = 1;
        break;
 
    case '*':
    case '/':
        p = 2;
        break;
 
    default:
        p = -1;
        break;
    }
 
    return p;
}
 
UnicodeString TForm1::Read(UnicodeString* Str) {
    UnicodeString m;
 
    if (Str->Pos(" ") != 0) {
        m = Str->SubString(1, Str->Pos(" ") - 1);
        *Str = Str->SubString(Str->Pos(" ") + 1, Str->Length() - Str->Pos(" "));
    }
    else {
        m = *Str;
        *Str = "";
    }
 
    return m;
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender) {
    UnicodeString a, x, S;
    S = Edit1->Text;
 
    stack<UnicodeString>Stack;
 
    Edit2->Text = "";
    while (!S.IsEmpty()) {
        a = Form1->Read(&S);
 
        switch (a[1]) {
        case '+':
        case '-':
        case '*':
        case '/':
            if (!Stack.empty())
                x = Stack.top();
            else
                x = "@";
            if (Priority(a) > Priority(x))
                Stack.push(a);
            else {
                while (Priority(a) <= Priority(x)) {
                    Edit2->Text = Edit2->Text + x + " ";
                    Stack.pop();
                    x = Stack.top();
                }
                Stack.push(a);
            }
            break;
 
        case '(':
            Stack.push(a);
            break;
 
        case ')':
            x = Stack.top();
            while (x[1] != '(') {
                Edit2->Text = Edit2->Text + x + " ";
                Stack.pop();
                x = Stack.top();
            }
            Stack.pop(); // выталкиваем '('
            break;
 
        default:
            Edit2->Text = Edit2->Text + a + " ";
            break;
        }
    }
    while (!Stack.empty()) {
        x = Stack.top();
        Edit2->Text = Edit2->Text + x + " ";
        Stack.pop();
    }
}

private:    // User declarations
int Priority(UnicodeString Operator);
UnicodeString Read(UnicodeString* Str);