Перевод инфиксной формы в постфиксную

procedure TForm1.PostFix(s: string; var stack: Tstringlist);
var
Temp:TstringList;
Ms: TMemoryStream;  
begin
Temp:=TStringList.Create;   // создаем вирт. список
Ms:=TMemoryStream.Create;
Ms.WriteBuffer( s[1], Length( s ) ); 
Ms.Position := 0;
with TParser.Create( Ms ) do  // создаем парсер памяти
       begin
   while Token <>toEof do                //  пока токены не кончились
   begin
   if (TokenString[1] in ['0'..'9'] ) then    // если токен - число
   begin
   Stack[Stack.Count-1] := Stack[Stack.Count-1] + TokenString; // помещаем токен в стек ([COLOR="Red"]ЗДЕСЬ ОШИБКУ ВЫДАЁТ[/COLOR]
   end
        else
        Stack.Add(TokenString);   // добавляем токен в конец стека
 //если токен символ
         if ( TokenString[1] in ['+','-','/','*'] ) then
         begin
            // если стек пустой,то помещаем знак в стек
            if Temp.Count = 0 then
               Temp.Add( TokenString )
            else
            begin
               // если приоритет текущей операции выше,чем предыдущей,то помещаем знак в стек
              
               if GetPriority( TokenString[1] ) > GetPriority( Temp.Strings[Temp.Count-1][1] ) then
                  Temp.Add( TokenString )
               else
               begin
                  // иначе извлекаем из стека,пока не встретим операцию с более высоким приоритетом
                  while true do
                  begin
                     Stack.Add( Temp.Strings[Temp.Count-1] );
                     Temp.Delete( Temp.Count-1 );
                     if Temp.Count = 0 then Break;
                     if GetPriority( TokenString[1] ) > GetPriority( Temp.Strings[Temp.Count-1][1] ) then
                        Break;
                  end;
                  // добавляем в стек текущую операцию
                  Temp.Add( TokenString );
               end;
            end;
         end;
        
         if ( TokenString[1] in ['('] ) then
            Temp.Add( TokenString );
       
         if ( TokenString[1] in [')'] ) then
         while true do
         begin
            if Temp.Count = 0 then Break;
            if Temp.Strings[Temp.Count-1] = '(' then
            begin
               Temp.Delete( Temp.Count-1 );
               Break;
            end;
            Stack.Add( Temp.Strings[Temp.Count-1] );
            Temp.Delete( Temp.Count-1 );
         end;
         NextToken;
      end;
   end;
   Ms.Free;
   // если по окончанию работы с формулой в стеке что-то осталось,то извлекаем все в выходной стек
   if Temp.Count <> 0 then
      while Temp.Count <> 0 do
      begin
         Stack.Add( Temp.Strings[Temp.Count-1] );
         Temp.Delete( Temp.Count-1 );
      end;
   Temp.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var
  SS:string;
  ST:TStringList;
   begin
    ss:=Edit1.Text;
   postfix(ss,st);
   Edit2.Text:=st[1]  ;
 
   end;

function PostFix(s : string) : string;
 
type
   TokenType = (tkOpen, tkPlus, tkMinus, tkMult, tkDiv, tkClose, tkNumber);
const
   Chars: array[TokenType] of Char = ( '(', '+', '-', '*', '/', ')', ' ' );
   Priority : array[TokenType] of Byte = (0, 1, 1, 2, 2, 5, 10);
 
   function GetToken(Ch : Char) : TokenType;
   var i : TokenType;
   begin
      for i := Low(TokenType) to High(TokenType) do
         if Chars[i] = Ch then Result := i;
   end;
 
var
   toknStack : TStack<TokenType>;
 
   function GetStack(var s : string): TokenType;
   var T: TokenType;
   begin
      T := toknStack.Pop;
      if T <> tkOpen then s := s + ' ' + Chars[T];
      Result := T;
   end;
 
var
   ms : TMemoryStream;
   CurrToken, From : TokenType;
   tt : Char;
 
   tts : TokenType;
begin
   toknStack := TStack<TokenType>.Create;
   ms := TMemoryStream.Create;
   ms.WriteBuffer(AnsiString(s)[1], Length(s));
   ms.Position := 0;
   with TParser.Create(ms) do
   try
      while Token <> toEOF do
      begin
         tt := Token;
         case Token of
            toInteger, toFloat, toSymbol :
               Result := Result + ' ' + TokenString;
            else
            begin
               CurrToken := GetToken(Token);
               case CurrToken of
                  tkOpen :
                     toknStack.Push(tkOpen);
                  tkClose :
                     repeat
                        From := GetStack(Result);
                     until From = tkOpen;
                  tkPlus, tkMinus, tkMult, tkDiv :
                  begin
                     if toknStack.Count > 0 then tts := toknStack.Peek;
                     while (toknStack.Count > 0) and
                           (Priority[CurrToken] <= Priority[toknStack.Peek]) do GetStack(Result);
 
                     toknStack.Push(CurrToken);
                  end;
               end;
            end;
         end;
         NextToken;
      end; { while }
 
      while toknStack.Count > 0 do GetStack(Result);
 
   finally
      Free;
   end;
   Ms.Free;
end;
 
// Вызов :
procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit5.Text := PostFix('(2 + 3)*4 + 5');
end;

procedure TForm1.Button1Click(Sender: TObject);
  var
  SS:string;
  ST:TStringList;
  i:integer;
   begin
    ss:=Edit1.Text;
 
   st := TStringList.Create;
   postfix(ss,st);
   for i:=0 to st.Count-1 do
   Edit2.Text:=st[i]; // Сюда переводит
 
   end;

function PostFix(s : string) : string;
 
type
   TokenType = (tkOpen, tkPlus, tkMinus, tkMult, tkDiv, tkClose, tkNumber);
const
   Chars: array[TokenType] of Char = ( '(', '+', '-', '*', '/', ')', ' ' );
   Priority : array[TokenType] of Byte = (0, 1, 1, 2, 2, 5, 10);
 
   function GetToken(Ch : Char) : TokenType;
   var i : TokenType;
   begin
      for i := Low(TokenType) to High(TokenType) do
         if Chars[i] = Ch then Result := i;
      // На предупреждение не обращаем внимание, других символов
      // (кроме перечисленных в Chars) в строке быть не может, так что всё нормально
   end;
 
var
   toknStack : TStack<TokenType>;
 
   function GetStack(var s : string): TokenType;
   var T: TokenType;
   begin
      T := toknStack.Pop;
      if T <> tkOpen then s := s + ' ' + Chars[T];
      Result := T;
   end;
 
var
   ms : TMemoryStream;
   CurrToken, From : TokenType;
begin
   toknStack := TStack<TokenType>.Create;
   ms := TMemoryStream.Create;
   ms.WriteBuffer(AnsiString(s)[1], Length(s));
   ms.Position := 0;
   with TParser.Create(ms) do
   try
      while Token <> toEOF do // Пока есть ещё токены
      begin
         case Token of // В зависимости от того, какой токен прочитали, делаем следующее:
 
            toInteger, toFloat, toSymbol : // Если это числа (целое, вещественное) или строка
               Result := Result + ' ' + TokenString; // То просто пишем этот токен в выходную строку
            else
            begin
               CurrToken := GetToken(Token); // Иначе (токен - символ) надо узнать, какой именно символ
               case CurrToken of
                  tkOpen : // Если это открывающаяся скобка
                     toknStack.Push(tkOpen); // Скобка пишется в стек. Это алгоритм перевода в постфикс
                  tkClose : // Закрывающая скобка
 
                     // Из стека выталкиваются все операции, до левой скобки (включительно)
                     repeat
                        From := GetStack(Result);
                     until From = tkOpen;
 
                  tkPlus, tkMinus, tkMult, tkDiv : // Знаки "минус", "плюс", "умножить"
                  begin
 
                     // Выталкиваем из стека и пишем в строку - результат все операции с приоритетом
                     // выше или равным текущему, а саму текущую операцию пишем в стек. Это тоже алгоритм
                     while (toknStack.Count > 0) and
                           (Priority[CurrToken] <= Priority[toknStack.Peek]) do GetStack(Result);
 
                     toknStack.Push(CurrToken);
                  end;
               end;
            end;
         end;
         NextToken; // Переходим к следующему токену
      end; { while }
 
      while toknStack.Count > 0 do GetStack(Result); // Здесь закончили, вытаскиваем из стека всё, что там осталось
 
   finally
      Free;
   end;
   Ms.Free;
end;