[Pilot_Red]

была уже где-то данная тема, в лом искать.

в событии выполнения напиши:

Код:

case Combobox1.ItemIndex of
 0:FindName;
 1:findType;
 2:findPol;
 3:findCena;
 end;

где например FindName процедура поиска по имени в например может быть такой код:

Код:

procedure FindName;
begin
with Form3.Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select *');
    SQL.Add('from OsSklad');
    SQL.Add('where ['Name'] = '+QuotedStr(Edit1.Text));
    Open;
  end;
end

аналогично с другими полями.

данный метод не универсален, но если, в принципе, полей не так уж и много то вполне может подойти.