Выделения ячейки в StringGrid1, отображения данных в StringGrid2

{
   TStringGrid *grid = dynamic_cast<TStringGrid*>(Sender);
    TStringGrid *other = (grid == StringGrid1) ? StringGrid2 : StringGrid1;
    other->OnSelectCell = 0;
    other->Col = ACol;
    other->Row = ARow;
    other->TopRow = grid->TopRow;
    other->OnSelectCell = StringGrid1SelectCell;
}

void __fastcall TForm2::FormShow(TObject *Sender)
{
 
StringGrid2->Cells[0][0]="Фамилия студента";
StringGrid1->Cells[0][0]="Название группы";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::FormCreate(TObject *Sender)
{
int x;
 FILE *f;
   f=fopen("\group.txt","r");
  TStringList *tsl=new TStringList;
tsl->LoadFromFile("\group.txt");
int i=0;
while (!(feof(f)))
while (1)
{int n=fscanf(f,"%d",&x);
if (n!=1) break;
int j=i+1;
 StringGrid1->Cells[0][j]=IntToStr(x);
 StringGrid1->RowCount++;
i++;
}
fclose(f);
 
 
    TStringList *Lst = new TStringList;
    Lst->LoadFromFile("students.txt");
    for (int i = 1; i < Lst->Count; i++)
    {
        StringGrid2->Cells[0][i] = Lst->Strings[i].SubString(1, 20).Trim();
}
    StringGrid2->RowCount = Lst->Count;
    delete Lst;
    Lst = NULL;
}
 
 
 
 
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Form1->Show();
Form2->Hide();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm2::StringGrid1SelectCell(TObject *Sender, int ACol, int ARow,
          bool &CanSelect)
{
{
   TStringGrid *grid = dynamic_cast<TStringGrid*>(Sender);
    TStringGrid *other = (grid == StringGrid1) ? StringGrid2 : StringGrid1;
    other->OnSelectCell = 0;
    other->Col = ACol;
    other->Row = ARow;
    other->TopRow = grid->TopRow;
    other->OnSelectCell = StringGrid1SelectCell;

// ---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <memory>
// ---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
// ---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
}
 
// Это глобальный список, который и будет хранить соответствие "Студент - Группа"
TStringList *gList;
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    StringGrid2->Cells[0][0] = "Фамилия студента";
 
    // Создаем глобальный список
    gList = new TStringList;
 
    // Здесь будут храниться номера групп, чтобы без повторений
    std::auto_ptr<TStringList> grps(new TStringList);
    grps->Sorted = true;
    grps->Duplicates = dupIgnore;
 
    // Как обычно, создаем говый список, читаем в него файл
    std::auto_ptr<TStringList> lst(new TStringList);
    lst->LoadFromFile("students.txt");
    for (int i = 0; i < lst->Count; i++)
    {
        // вытаскиваем из каждой строки списка фамилию и номер группы
        String name = lst->Strings[i].SubString(1, 17).Trim();
        int group = lst->Strings[i].SubString(18, 3).Trim().ToInt();
        // сохраняем соответствие в gList
        gList->AddObject(name, (TObject*)group);
 
        // добавляем фамилию в грид
        StringGrid2->Cells[0][i + 1] = name;
        // и номер группы - в список групп. Дубликаты будут отсеиваться автоматически
        grps->Add(IntToStr(group));
    }
 
    // Всё, упорядоченность нам больше не нужна (автоудаление дубликатов работает только при Sorted = true)
    grps->Sorted = false;
    // добавим заголовок
    grps->Insert(0, "Название группы");
    // и перенесем строки из списка групп в грид
    StringGrid1->Cols[0]->AddStrings(grps.get());
    StringGrid1->RowCount = grps->Count;
 
    // ну, и заодно - выставим количество строк другого грида, чтобы показались все фамилии
    StringGrid2->RowCount = gList->Count + 1;
}
 
// ---------------------------------------------------------------------------
// теперь - по нажатию на ячейку грида (обработчик OnSelectCell)
void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol,
    int ARow, bool &CanSelect)
{
    TStringGrid *grid = static_cast<TStringGrid*>(Sender);
    // если ячейка что-то содержит
    if (grid->Cells[ACol][ARow].Trim().Length() > 0)
    {
        // то очистим список фамилий
        StringGrid2->Cols[0]->Clear();
        // создадим новый список строк, куда
        std::auto_ptr<TStringList>lst(new TStringList);
        for (int i = 0; i < gList->Count; i++)
        {
            // запишем все фамилии, для которых соответствующие номера групп
            // совпадают с тем номером, на котором щелкнули
            if ((int)gList->Objects[i] == StrToInt(grid->Cells[ACol][ARow]))
            {
                lst->Add(gList->Strings[i]);
            }
        }
        // добавим заголовок, и занесем новый список в грид
        lst->Insert(0, "Фамилия студента");
        StringGrid2->Cols[0]->AddStrings(lst.get());
        StringGrid2->RowCount = lst->Count;
    }
}
// ---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    // память выделяли при создании формы - значит, освобождаем - при разрушении
    delete gList;
}
//---------------------------------------------------------------------------