Multiselect в DBTreeList

theOne.Mk.Ua
Дата: 12.11.2007 18:25:57
Здравствуйте!
Руководствуясь примерами DevExpress загоняю список отмеченных узлов дерева в переменную:

procedure TreqForm1.customer_namePropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
  var
    I: Integer;
    Result: string;
begin
    Result := '';
    for I := 0 to cxDBTreeList1.SelectionCount - 1 do
    begin
      Result := Result +
        VarToStr(TcxTreeListDataNode(cxDBTreeList1.Selections[I]).KeyValue) + ', ';
    end;
    customer_name.Text := Result;
end;

Как теперь мне отметить узлы в дереве, имея KeyValues перечисленные в результате работы предыдущей процедуры.

Спасибо.