StringGrid - zliczanie elementów

Witam
Mam pytanko. Jak podliczyć elementy występujące w kolumnie ?
Mam kolumnę w której losowo wstawiane są imiona np

Zdzichu
Rychu
Piotr
Zdzichu
Piotr
Piotr
...

Jak podliczyć ilość występowania np 'Zdzichu' ? Wiem że najprościej wyeksportować do excela i tam policzyć jednak wolałbym mieć to pod <ort>delphim</ort>.

Jakieś podpowiedzi ?

Że co? Eksport do excela jest łatwiejszy niż najprostsza pętla for???????????? Szok.

var
  i, RecCount :Integer;

RecCount := 0;

for i := 1 to SG.RowCount-1 do
begin
  if SG.Cells[ColNo, i] = "Zdzichu" then Inc(RecCount);
end;

Może i szok ale już wcześniej kombinowałem z exportem do excela więc znałem metodę.
Dzięki za podpowiedź.