procedure TfrmSetOutPzTradeDeptPerson.grdTradeClientEditing(Sender: TObject;
  AColumn: TcxTreeListColumn; var Allow: Boolean);
begin
  if not Assigned(grdTradeClient.FocusedNode) then Exit;
  Allow := grdTradeClient.FocusedNode.Level = 1;
end;