Парсер на классах Опции

[Triplet]

Всем добрый день!
Получила такое сумбурное задание, помогите, пожалуйста, разобраться.
Необходимо реализовать парсер арифметического выражения на классах.
Проблема как раз в этих классах, т.е., как я поняла, они должны быть реализованы таким образом:

type
  TCustomToken=class  //здесь должны храниться только литералы исходного выражения
  private
    FText: string;
  public
    property Text: string read fText;  //должно быть св-ом
    procedure LoadFromString(const S, Pos): Integer; 
  end;
  TNumberToken=class  //только цифры исходного выражения
  private
    FValue: Integer;   //должно быть св-ом
  public
     property Value: Integer read FValue;
  end;
  TCustomTokens=class  //всё выражение (должно считываться из двух предыдущих классов)
  private
    FCount: Integer;   //должно быть св-ом
    FItems: array [0..FCount-1] of Char;   //должно быть св-ом
    function  GetSymbol(Index: Integer): ;
    procedure SetSymbol(Index: Integer; Value: Longint);
  public
    property Count: Integer read FCount;
    property Items[index: Integer]: Longint read GetCoord write SetCoord; //не уверена, что правильно оформила
  end;

на форуме нашла такой код парсера
Постфиксная форма записи
http://volvo71.narod.ru/faq_folder/postfix.htm
там есть и ооп, но
подскажите, пожалуйста, как можно парсер оформить в виде именно этих классов. Как я поняла, каждый класс должен выступать в виде стека, и как правильно распорядиться свойствами классов?
Заранее большое спасибо)!

[volvo]

Значит, смотри: используются вот такие классы:

  Tok_Type = (_UNDEF, _NUMBER, _OPERATOR, _END);
  TokenString = string[16];

  tbase = class
    tokType: Tok_Type;
    constructor create;
  end;
  topertoken = class(tbase)
  private
    FValue: char;
  public
    constructor loadfromstring(const s: string; var p: integer);
    constructor stop;
    property Value: char read FValue write FValue;
  end;
  tnumbertoken = class(tbase)
  private
    FValue: double;
  public
    constructor loadfromstring(const s: string; var p: integer);
    property Value: double read FValue write FValue;
  end;


  tcalc = object
    function proceed(): double;
    constructor create(lpszCommand: string);
    destructor destroy(); virtual;

  private
    TokenValue: tbase;

    procedure SetFunction(lpszCommand: string);
    procedure GetToken(); virtual;
    function mul_div(): double;

  protected
    pCurrPos: integer;
    _Function: string;

    function add_sub(): double;
    function prim(): double; virtual;
  end;

Предупреждаю сразу о нескольких вещах:
1) это работает только с арифметическими операциями/скобками/вещественными числами
2) все классы, кроме TCalc были прикручены в программу по принципу "чтобы было, потому что есть в задании", изначально в парсере использовалось только 2 класса, TCalc и TVarCalc (один для вычисления выражений без переменных, второй - для вычислений с участием переменных, второй класс в прикрепленную программу не вошел, из первого было вычищено все, что касается функций)
3) такую программу лично я никогда бы не принял. Еще раз: написано это - только для того, чтобы показать, насколько это бредово получается. Без этих "классов-довесков" программа выглядит намного стройнее и красивее;
4) на некоторых версиях Дельфи (до 2009) потребуется заменить конструкцию Exit(X) на

begin
  result := X; Exit;
end;