[Assistant]

пользуйтесь компонентами TQuery или TADOQuery (в зависимости от типа базы).
для фильтрации используйте:

Код:

ADOQuery1.SQL.Text := 'SELECT * FROM Товары WHERE тип_товара = 1';
ADOQuery1.Open;

для возврата в обычное состояние:

Код:

ADOQuery1.SQL.Text := 'SELECT * FROM Товары';
ADOQuery1.Open;

но это так, на вскидку