아무래도 노가다^^; 를 해야될것 같은데여.. 저의 짧은 소견으로 몇자 적습니다.
DB라면 Query의 Group By로 하면 간단할텐데
아마도 stringGrid상의 자료인가봐요?
for 문으로 돌려야겠죠.

for i := 1 to sg.rowCount-1 do
begin
    fruitName := sg.Cells[0,i] ;
    findOk := False ;
    for j := 1 to length(a_value) do
    begin
        if a_value[j] = fruitName then
        begin
            b_value[j] := b_Value[j] + 1 ;
            findOk := True ;
            break ;
        end ;
    end ;    
    if not findOk  then
    begin
        INC(arrayNum) ;    
        a_Value[arrayNum] := fruitName ;
        b_Value[arrayNum] := 1 ;
    end ;
end ;
넘 ~~ 유치했나요?? 더좋은 방법아시는분 도와주세요.