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

[phreaker228]

Пишу программу для перевода из инфиксной системы в постфиксную, при работе программы выдает ошибку EAccessviolation, и указывает на Stack. Помогите исправить ошибку,замучался уже

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; // помещаем токен в стек !!!!ЗДЕСЬ ОШИБКУ ВЫДАЁТ!!!
   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;