[Yurk@]

Код:

  try
    ADOQuery10.Close;
    ADOQuery10.SQL.Text := 'SELECT SUM(summa) as d FROM dohod WHERE data BETWEEN :first_date AND :last_date';
    ADOQuery10.Parameters.ParamByName('first_date').DataType := ftDate;
    ADOQuery10.Parameters.ParamByName('last_date').DataType := ftDate;
    ADOQuery10.Parameters.ParamByName('first_date').Value := DateTimePicker1.Date;
    ADOQuery10.Parameters.ParamByName('last_date').Value := DateTimePicker2.Date;
    ADOQuery10.Open;
  except
  end;