Не исполняются поля информации для фильтров

[MarcusAurelius]

Необходимо создать фильтр по одному из параметров.
Наверное нужно так:

Код:

begin

with ADOFirm_Name
SQL.Text:=('SELECT NAME as FIRMNAME, FIRM_ID FROM firm f WHERE (NAME=:FIRM_NAME or :FIRM_NAME='''') and (FIRM_ID=:FIRM_ID or :FIRM_ID=0)');
Parameters.ParamByName('FIRM_NAME') .Value:=Edit1.Text;
Parameters.ParamByName('FIRM_ID').V alue:=StrToIntDef(Edit2.Text,0);
Active:=True;
end;
end;

Сообщение от GreenWizard

WHERE (NAME=:FIRM_NAME or :FIRM_NAME='''') and (FIRM_ID=:FIRM_ID or :FIRM_ID=0)

кстати да, забыл что оно может подставлять параметры так)) намного проще и понятнее моего костыля)

Огромнейшее спасибо!