[TOJluK]

передавай в процедуру TObject

Код:

procedure STR_GRD_WORK(sender:TOBject);
var i,j:integer;
begin
with (sender as TStringGrid) 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;
end;

Ну, а в процедуру можно StringGrid передавать в цикле при помощи FindComponent