[angvelem]

Как-то так:

Код:

type
  TFOilGasSprt = class
  public
    procedure FillStringGrid(MissionsStringGrid : TStringGrid);
  end.
...
var
  FOilGasSprt : TFOilGasSprt;
...
begin
  FOilGasSprt.FillStringGrid(StringGrid1 : TStringGrid);
...
  FOilGasSprt.FillStringGrid(StringGrid2 : TStringGrid);
end;