1) Никаких звездочек в запросах! это лишний подзапрос для сервера что бы получить список полей для таблицы.
2) Делать только через bind переменные. Что бы субд не парсило запрос каждый раз!
как-то так:
Код:
Query.SQL.text:='Select Field1,Field2 from Tabl where ID= :id ';
Query.ParamByName('id').asInteger:=id;
Query.open;