[АНЯ17]

Код:

begin
   if (Length(Trim(edit5.text)) = 0)  and
         (Length(Trim(edit6.text)) = 0) then Exit;
  with DataM.adsQ do
    begin
       close;
         sql.clear;
         sql.Add('select *from bemor  where ');
//         if (Length(Trim(edit5.text))>0 then
             sql.Add(' fbem like ' +  quotedStr('%'+Trim(edit5.text)+'%') );
//         if ((Length(Trim(edit5.text))>0) and (Length(Trim(edit6.text))>0 then
            sql.Add(' and ');
//         if (Length(Trim(edit6.text))>0 then
             sql.Add(' ibem like ' +  quotedStr('%'+Trim(edit6.text)+'%') );
         open;
    end;

работает без переменных 100% оба полям