Lazarus Funktion als Baustein nutzen

[Aviator]

Vielleicht sowas in der Art:

Delphi-Quellcode:

procedure TForm1.FillGrid(Grid: TStringGrid);
begin
  Grid.Cell[0, 1] := 'Cell 1';
  Grid.Cell[0, 2] := 'Cell 2';
  Grid.Cell[0, 3] := 'Cell 3';
  Grid.Cell[0, 4] := 'Cell 4';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FillGrid(StringGrid1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  FillGrid(StringGrid2);
end;

Die zu füllenden Werte könntest du theoretisch als zweiten Parameter in einem (zweidimensionalen) Array übergeben.