[Страдалецъ]

Можно конечно и запрос собирать:

Код:

SQL.Text := 'SELECT * FROM bso ';
if Edit1.text <> '' 
then begin
       SQL.Text := SQL.Text + 'WHERE f_Der =:Der'
       Parameters.ParamByName('DER').Value := Edit1.Text; 
       end;