Parallel.ForI(TempLow, TempHigh,
  procedure (i1, i2, tdi: integer)
  var
   i: integer;
  begin
   for i := i1 to i2 do
    EnsureSliceOpened(i, True);
  end,
  pfInterleaved);

procedure FillTransferSytax(OnTransferSyntaxFound: TNotifyStrReferProc);
var
 i: integer;
begin
 for i := 0 to DICOMDictonary.NUMBER_OF_DCMUIDS - 1 do
  if DICOMDictonary.DCMUIDDictonary[i].UIDType = utTRANSFERSYNTAX then
   OnTransferSyntaxFound(DICOMDictonary.DCMUIDDictonary[i].UIDName);
end;

procedure TSaveAsOptionsForm.FormCreate(Sender: TObject);
begin
 FillTransferSytax(procedure (const s: string)
  begin
   SpTBXComboBox1.AddItem(s, nil);
  end);
end;

TNotifyStrReferProc    = reference to procedure (const s: string);

function TDICOMParserMainForm.DoSearch(Comparer: TSearchTree): boolean;
begin
 ...
 ...
 ...
 ...
 ...
  while Assigned(TempNode) do
  begin
   if (TObject(TempNode.Data) is TDICOMElement) and Comparer(TempNode) then
    Break;
   TempNode := TempNode.GetNext;
  end;
 ...
 ...
 ...
end;

type
 TSearchTree = reference to function (TreeNode: TTreeNode): boolean;

var
 Comparer: TSearchTree;

 Comparer :=
  function (TreeNode: TTreeNode): boolean
  begin
   Result := Pos(AnsiUpperCase(FSearchStr), AnsiUpperCase(TreeNode.Text)) <> 0;
  end;

 if not DoSearch(Comparer) then
  ShowNotFound(FSearchStr);
 ...
  Comparer :=
   function (TreeNode: TTreeNode): boolean
   begin
    Result := TreeNode.Data = NodeData;
   end;

  DoSearch(Comparer);