[Страдалецъ]

А вы бы посмотрели в отладчике и увидели, что явно знака равенства не хватает в условии. Так попробуйте:

Код:

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