Логический анализатор

[NieL]

Пишу анализатор логических выражений в списке. Вот наброски:

uses ComObj;

{$R *.dfm}

function Calc(const CalcStr: AnsiString): AnsiString;
var
  v : Variant;
begin
  v := CreateOleObject('MSScriptControl.ScriptControl');
  v.Language := 'JScript';
  Result := v.Eval(CalcStr);
  v := Unassigned;
end;

function Replace(Text: AnsiString): AnsiString;
begin
  Text := StringReplace(Text, 'and', '&', [rfReplaceAll, rfIgnoreCase]);
  Text := StringReplace(Text, 'or', '|', [rfReplaceAll, rfIgnoreCase]);
  Result := Calc(Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: string;
begin
  s := '1 and (1 and 1)';
  //s := 'abc and abc';
  label1.Caption := Replace(s);
end;

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

[alex_fcsm]

Существую различные синтаксические и лексические анализаторы. Я бы посоветовал с их помощью написать