[denverus]

ВСЕМ ПАСИБ ЗА ПОМОЩЬ Я СДЕЛАЛ НЕМНОГО ПО ДРУГОМУ, не через грид а через запрос
ADOQuery2.Close;
ADOQuery2.SQL.Clear;

ADoquery2.sql.text := 'select * from TASK, PROJCOST where proj_id = :s ';
ADoquery2.parameters.paramByName('s').value := s;

ADOQuery2.ExecSQL;
ADoQuery2.open ;