Передача объекта типа TStringGrid в функцию в Embarcadero C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <list>
#include <iterator>
#include <algorithm>
using namespace std;
void Print(TStringGrid *SG1);    //портотип проблемной функции
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int fwfwqf;
list<int> lstFirms;
list<int>:: iterator itFirmsBegin, itFirmsEnd;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
 
 
//--------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
StringGrid1->ColWidths[0]=40;        //эти функции работают, просто создают оформление
StringGrid1->ColWidths[1]=150;
StringGrid1->ColWidths[2]=70;
StringGrid1->Cells[0][0]="№";
StringGrid1->Cells[1][0]="Название фирмы";
StringGrid1->Cells[2][0]="Персонал";
itFirmsBegin = lstFirms.begin();
 
 
Print(StringGrid1); //вот этот вызов не работает
 
}
//---------------------------------------------------------------------------
void Print(TStringGrid *SG1)    //в качестве параметра передать SG1, что бы менять его в функции
{
    itFirmsBegin = lstFirms.begin();
    itFirmsEnd = lstFirms.end();
    int count = lstFirms.size();
    SG1->Cells[1][1]="№";  //просто присвоение, которое в теории должно работать
    return;
}

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Grids.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TStringGrid *StringGrid1;
    TButton *Button1;
    TButton *Button2;
    TButton *Button3;
    void __fastcall FormCreate(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
class Firma{
    public:
    int personCount;
    AnsiString name;
};
#endif

[bcc32 Error] Unit1.cpp(37): E2227 Extra parameter in call to _fastcall TCustomForm::Print()

    ::Print(StringGrid1);