ToDo. Про определение "аксиоматики на лету"

 TtfwContext = record
   rCaller : ItfwScriptCaller;
   rEngine : ItfwScriptEngine;
   rParser : ItfwParser;
   rCompiler : ItfwCompiler;
   rException : Exception;
   rUsed : Tl3StringList;
   rTypeInfo : TtfwTypeInfo; // Информация о типе слова
   rScriptFilename : AnsiString;
   rKeyWordCompilingNow : TtfwKeyWord;
   rFirstHalfOfDualWord : TtfwWord; // Первая половина двойного слова
   rStoredValuesStack : ItfwStoredValuesStack; // Стек для сохранения состояния слов при обработке рекурсивных вызовов
   rWordCompilingNow : TtfwWord; // Текущее компилируемое слово
   rWordDefiningNow : TtfwWord; // Текущее определяемое ИМЕНОВАННОЕ слово
   rKeyWordDefiningNow : TtfwKeyWord; // Текущее определяемое ИМЕНОВАННОЕ слово
   rWasCloseBracket : Boolean;
   rPrevFinder : Il3KeywordFinder;
 end;//TtfwContext

-- вытащить это всё в "ручки" скриптовой машины.