[Black Raider]

DB_date.KeyValue точно Дата?
строка :

Код:

fdate:=' AND  (date_pro = '''+DB_date.KeyValue+''')'
    else

если дата то должна быть

Код:

fdate:=' AND  (date_pro = '''+datetostr(DB_date.KeyValue)+''')'

попробуйте так:

Код:

if DB_date.KeyValue<>'--' then
      fdate:=' AND  (date_pro = :dateWhere)'
    else
     fdate:='';
     f=fdate+fcolor+fispol // отрывок кода, сюда суммируются другие выборки
      sql_khp.SQL.Text:='SELECT  kod_map, podrotpr, podrpol, name, map, nzah, 
zmf, kol, date_pro, num_pro, zstate, kod_op, color, zispol, zdateinput ' +
     ' from dd092010 where podrotpr not like ("53%") and  kod_op not like ("65") and podrpol like ("53%") ' +
     ' '+f+
     ' ORDER BY podrotpr, podrpol ' + sort;
    if sql_khp.Active then sql_khp.Active:=False;
    if DB_date.KeyValue<>'--' then sql_khp.parametrs.ParamByName('dateWhere').value:=DB_date.KeyValue;
    sql_khp.Active:=True;