Mehrere StringGrids über Schleife befüllen?

[Blup]

Delphi-Quellcode:

procedure TReport.SchreibeZeile(AGrid: TStringGrid; AZeile: Integer);
begin
  with AGrid do
  begin
    Cells[1, Zeile] := 'Trage was ein';
    ... viel mehr
  end;
end;

SchreibeZeile(StringGrid1, Zeile);
SchreibeZeile(StringGrid2, Zeile);
SchreibeZeile(StringGrid3, Zeile);
SchreibeZeile(StringGrid4, Zeile);

// oder:

function TReport.GetStringGrid(AIndex: Integer): TStringGrid;
begin
  case AIndex of
    0: Result := StringGrid1;
    1: Result := StringGrid2;
    2: Result := StringGrid3;
    3: Result := StringGrid4;
  else
    raise Exeption.Create('Bereichsüberschreitung');
  end;
end;

for i := 0 to 3 do
  SchreibeZeile(GetStringGrid(i), Zeile);