[mrtt]

Здравствуйте, не получается подсчитать кол-во спортсменов по каждому виду спорта в определённом поле..
Смысл задания таков: создать вычисляемое поле и сделать там подсчёт.
У меня выходит следующая процедура:

Код:

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
var i,sum: Integer;
begin
sum:=0;
 
with Table1.Fields.FieldByName('Sport') do begin {В этом поле данных надо подсчитать кол-во спортсменов}
 
for i:=0 to Table1.RecordCount-1 do begin
  if Table1.Fields[i].Value=Table1.Fields[i+1].Value then begin  {На этой строке выдаёт ошибку}
    sum:=sum+1; end;
    Table1Quantity.Value:=sum; {Сюда заносим результат}
end;
end;
end;

Но при такой процедуре возникает ошибка конвертации:
"Could not convert variant of type (String) into type (Double)"

Что я делаю не так? Заранее спасибо.