как получить список

Konst

не одного первого встретившевося а всех которые есть в скрипте.
Скрипт может быть большим.

Konst

Пока сделал через глобальные переменные
Var
FUndeclaredList: TStringList;
FUndeclared: Boolean;

И в функции Заполняю этот список.

function TfsILParser.FindVar


if FUndeclared then
begin
if FUndeclaredList.IndexOfName(Name) = -1 then
FUndeclaredList.Add(Name);
Result := TfsVariable.Create(Name, fvtVariant, '');
FProgram.Add(Name, Result);
end else


Какой может быть еще авариант?