type DelArray = arrey of TTreeNode;

procedure TMainForm.DeleteItems(parent:TTreeNode; var del:TDelArray);
var
  node : TTreeNode;
begin
    if (CompareText('TABLE_CAD_ZUORD', Uppercase(parent.Text)) = 0) or
       (CompareText('PROTOTYP', Uppercase(parent.Text)) = 0) or
       (CompareText('NUMBERNODES', Uppercase(parent.Text)) = 0) or
       (CompareText('TABLE_NUMBERNODES', Uppercase(parent.Text)) = 0) or
       (CompareText('CARINCAD', Uppercase(parent.Text)) = 0) or
       (CompareText('1', Uppercase(parent.Text)) = 0) or
       (CompareText('TABLE_VARINCAD', Uppercase(parent.Text)) = 0) or
       (CompareText('TABLE_DATEIFILTER', Uppercase(parent.Text)) = 0) or
       (CompareText('PLANLAUF', Uppercase(parent.Text)) = 0) then
    begin
      SetLength(del, Length(del) +1);
      del[high(del)] := parent;
      if (CompareText('TABLE_DATEIFILTER', Uppercase(parent.Text)) = 0) then ShowMessage('Hallo, hmm');
      Exit;
    end;
 
  if parent.HasChildren then
  begin
    node := parent.getFirstChild;
    while Assigned(Node) do
    begin
      DeleteItems(node, del);
      node := node.getNextSibling;
    end;
  end;
end;
 
// Alle Überflüssigen Knoten werden wieder gelöscht.
procedure TMainForm.BlendeAus();
var
  anz, i : LongInt;
  del : TDelArray;
  node : TTreeNode;
begin
  SetLength(del, 0);
 
  node := TreeView.Items.GetFirstNode;
  while Assigned(Node) do
  begin
    DeleteItems(node, del);
    node := node.getNextSibling;
  end;
 
  for I := Low(del) to High(del) do
  begin
    del[i].DeleteChildren;
    del[i].Delete;
  end;
 
  SetLength(del, 0);
end;