unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,FR_Pars,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure GetValue(const s: String; var v: Variant);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.GetValue(const s: String; var v: Variant);
begin
 if s = 'A' then v :=  9 ;
 if s = 'B' then v :=  15 ;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Pr :TfrParser;
    cl :TclParser;
    str:string;
begin
 Pr:=TfrParser.Create; str:='(a*9) - (b/15)';
 Label2.Caption:=Pr.Str2OPZ(str); // преобразуем в обратную польскую запись (удобно при многократном вызове, не тратится время на разбор формулы)
 Pr.OnGetValue:=GetValue; // выставляем обработчик события для загрузки переменных нужным значением
 Label1.Caption:=Pr.calc(str); // расчитываем значение и выводим результат
// существует функция CalcOPZ которая расчитывает исходя из обратной польской записи
end;

end.