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

То-что ругается уже хорошо, значит работает, хотя и неправильно.
Вы посмотрели в отладке, что у вас получается в DataModule1.ADOQuery2.SQL.Text ?
Как поставить точку останова в курсе? Если нет, то установите курсор на строку:

Код:

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

и нажмите Ctrl+F8
Затем запустите программу и после остановки программы на этой строчке нажмите F7 и посмотрите что получилось в DataModule1.ADOQuery2.SQL.Text

[Amilman]

Я так понимаю что это не то? SQL () (read=TADOQuery.GetSQL write=TADOQuery.SetSQL)

[Amilman]

Но вот теперь при запуске все записи в таблице исчезают как только открываю TreeViwe...

[Amilman]

Переделал вот так

Код:

DataModule1.ADOQuery2.SQL.Text:= 'SELECT * FROM Работники WHERE Подразделение = "' + TreeView1.Items[TreeView1.Selected.Index].Text + '"';

но теперь к примеру при выборе 3 записи в TreeView он отправляет на фильтрацию вторую запись...