[Amilman]

Сделал так :

Код:

DataModule1.ADOQuery1.SQL.Text:= 'SELECT * FROM Работники WHERE Подразделение = "' + string(Integer(TreeView1.Selected.Data)) + '"';

Но в гриде по прежнему всё без изминений.