[TOJluK]

если каждому гриду соотв-ет свой эдит

Код:

procedure TForm.STR_GRD_WORK(grd:string);
var i,j,f,g:integer;
begin
f:=0;
g:=0;
with TStringGrid(FindComponent('StringGrid' + grd)) do
 begin
 for i:= 1 to 4 do
  begin
  for j:= 1 to 4 do
   begin
   if cells[i,j]='0' then f:=f+1
    else
     if cells[i,j]='1' then g:=g+1
   end;
  end;
 end;
TEdit(FindComponent('Edit' + grd)).Text:=IntToStr(f)+','+IntToStr(g);
end;

вызывать так:

Код:

for i:=1 to 8 do 
 STR_GRD_WORK(IntToStr(grd));

должно работать