var
  Q: TDBISAMQuery;
begin
  Q := TDBISAMQuery.Create(Database);
  try
    try
      Q.SessionName  := Database.SessionName;
      Q.DatabaseName := Database.DatabaseName;
      Q.SQL.Add('select count("' + Field + '") as FldCount from ' + Table);
      if Where <> '' then
        Q.SQL.Add(' where ' + Where + ';');

      Q.Open;   <<-- EXCEPTION OCCURS HERE!
      if Q.FieldByName('FldCount').IsNull then
        Result := 0
      else
        Result := Q.FieldByName('FldCount').Value;
      Q.Close;
    except
      Result := 0;
      end;
  finally
    Q.Free;
    end;