[lmikle]

Да просто все.

типа как-то так:

Код:

var
  Sport : String;
  Cnt : Integer;
begin
  Table.First;
  Sport := '';
  Cnt := 0;
  While Not Table.EOF Do
     Begin
        If Table.FieldByName('Sport').AsString <> Sport 
          Then
            Begin
               If Cnt > 0 Then
                  ShowMessage(Sport + ' = ' + IntToStr(Cnt));
               Cnt := 1;
               Sport := Table.FieldByName('Sport').AsString;
            End
           Else
             Inc(Cnt);
       Table.Next;
     End;