k: integer;
...
k=0;
...
if Stringgrid1.Cells[3,int]=edit1.text
then
begin
k=k+1;
s:=s+strtofloat( Stringgrid1.Cells[2,int]);
end;
if(int=4)
then s:=s/k;