1:
2:
3:

  with TStringGrid do
    Cells[0,0] := 'Name';
    {usw...}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

...
private
  FStringGrids: array[0..2] of TStringGrid;
end;

...

procedure TForm1.FormCreate(...)
begin
  FStringGrid[0] := StringGrid1;
  FStringGrid[1] := StringGrid1;
  FStringGrid[2] := StringGrid1;
end;

procedure TForm1. ...
begin
  for i := 0 to High(StringGrids) do
    FStringGrids[i].Cells[0, 0] := 'Text';
end;