[sorockinalex]

Есть процедура

Код:

procedure TFOilGasSprt.FillStringGrid();
var
  i,j:integer;
  RecCnt:Cardinal;
begin
  With DM, Self, MissionsStringGrid do
  begin
      RecCnt:=Query.RecordCount;
      //Êîëè÷åñòâî ñòðîê ñîãëàñíî êîëè÷åñòâó çàïèñåé çàïðîñà
      MissionsCout.Caption:=IntTostr(RecCnt);
      if RecCnt=0 then RowCount:=2
      Else if RecCnt=1 then RowCount:=2 else RowCount:=RecCnt+1;
      //Î÷èùàåì MissionsStringGrid îò ñòàðûõ çíà÷åíèé
      j:=0;
      while (Cells[0,j]<>'') do
      begin
        j:=j+1;
        Rows[j].Clear;
      end;
      //Çàïîëíÿåì MissionsStringGrid äàííûìè èç çàïðîñà
      If RecCnt<>0 then
      begin
        for j:=1 to RecCnt do
        begin
          for i:=0 to Query.Fields.Count-1 do Cells[i,j]:=Query.Fields[i].AsString;
          Query.Next;
        end;
      end;
  end;
end;

Как передать Name StringGrid в процедуру, чтобы она была общей для любых StringGrid с именами, например, StringGrid1 и StringGrid2?