function für mehrere Units?

[Nuclear-Ping]

Delphi-Quellcode:

procedure addmon (Grid: TStringGrid);
var i : Integer;
    b : String;
begin
 
i := 0;

Form4.StringGrid1.RowCount := Form4.StringGrid1.RowCount +1;

for i := 1 to Form4.Stringgrid1.rowcount - 1 do
  begin
    b := IntToStr(i);
    Form4.Stringgrid1.Cells[0,i] := (b + '. Monat');
  end
end;

... und warum wird hier wohl ein Grid als Parameter übergeben?