procedure TForm4.zFormDesigner1GetMethodNames(Sender: TObject;
  TypeData: PTypeData; Proc: TGetStrProc);
var i: integer;
    R: TTagBlockCondition;
begin
   with CodeEditor.SyntObj do
    begin
      // Looking for all text ranges with rule "function"
      R := TTagBlockCondition(Owner.BlockRules.ItemByName('function'));
      if R <> nil then
       for i := 0 to RangeCount - 1 do
        if (Ranges[i].Rule = R) then
         Proc(TagStr[Ranges[i].StartIdx + 1]); // Adds function to procedures list
    end;
end;