begin
  wstLocation := '';
  BOMat.Select(TRUE, // true - модальное окно выбора обьекта, false - не модальное.
                wstLocation, // Location обьекта
                Handle);   // указатель окна МиС
  BOMat.GetObjectInfo( wstLocation, ClassID, ObjectID );// запрос "Получить информацию об обьете"
  BOMat.Request.Topic := topicProperties;               // Заголовок запроса (см. BOMatConst)
  BOMat.Request.Attribute[ anAction ].AsString := avGet;   //Атрибут запроса на получение свойств (см. BOMatConst)
  BOMat.Request.Attribute[ anClassID ].AsString := ClassID;  // Атрибут запроса ClassID
  BOMat.Request.Attribute[ anObjectID ].AsString := ObjectID;  // Атрибут запроса ObjectID
  BOMat.ExecuteRequest;
  edSelectedObject.Text := BOMat.Response.Item[ 0 ].DisplayName + ' класса ' +
                             BOMat.Response.Item[ 0 ].ClassID;
  _ParseObjects( BOMat.Response, nil); // Парсим полученную коллекцию обьектов и атрибутов.
end;

BOMat.Request.Attribute[ anAction ].AsString := avGet;