И ещё о "фильтрах и генераторах"

В продолжение темы - http://programmingmindstream.blogspot.ru/2014/04/blog-post_25.html

Как выглядит SetTo?

А очень просто:

type
 TElementFilter = class(Generator)
 ..
  class procedure SetTo(var theFilter: Generator);
 end;//TElementFilter

...

class procedure TElementFilter.SetTo(var theFilter: Generator);
var
 l_This : TElementFilter;
begin
 l_This := Self.Create;
 l_This.Next := theFilter;
 FreeAndNil(theFilter);
 theFilter := l_This;
end;

P.S. Для тех кто хочет "пообсуждать FreeAndNil" посоветую для начала прочитать вот это - http://18delphi.blogspot.ru/2013/04/iunknown.html