Подсчет числа уникальных записей таблицы

[Storkich]

Не всегда есть ключ по нужному полю.
Я делаю своды вот так:

...
REPEAT
  IF not TEMPтаблица.Get(Field1,Field1,) then begin
	 TEMPтаблица.Field1:=Rec.Свод1;
	 TEMPтаблица.Field2:=Rec.Свод2;
	 TEMPтаблица.Qty1:=0;
	 TEMPтаблица.INSERT;
  end;
  TEMPтаблица.Qty1+=Rec.Qty1;
  TEMPтаблица.MODIFY;
until Rec.NEXT=0;