отображение в Stringrid из файла

[6elka]

вопрос у меня есть stringgrid и dbgrid и мне нужно чтобы при нажатии на ячейку dbgrid из нее бралась информация и в зависимости что там написано в stringgrid отрисовывалось либо из 1-го файла либо из 2 файла но не получается отрисовывается только раз если я выберу другую ячейку не отрисовывается а бьет ошибку

function TForm5.GetMatrix: TMatrix;
var L: TStringList;
    i, j: integer;
begin
 if(s = 'малый зал') then
 begin
 L := TStringList.Create;
 L.LoadFromFile('places2.dat');
 for i := 0 to L.Count - 1 do
  G.Rows[i].CommaText := L.Strings[i];
 L.Free;
 for i := 0 to R do
  for j := 0 to C do
   result[i, j] := StrToInt(G.Cells[j, i]);
   end
   else
   L := TStringList.Create;
 L.LoadFromFile('places.dat');
 for i := 0 to L.Count - 1 do
  G.Rows[i].CommaText := L.Strings[i];
 L.Free;
 for i := 0 to R do
  for j := 0 to C do
   result[i, j] := StrToInt(G.Cells[j, i]);
end;
это отрисовывается

это метод где я беру из ячейки данные 

procedure TForm5.sDBGrid2CellClick(Column: TColumn);
var
i:integer;
begin
i:=sDBGrid2.SelectedIndex;
 s :=sDBGrid2.DataSource.DataSet.Fields.Fields[i].Value;
 GetMatrix;
end;

[evg_m]

function TForm5.GetMatrix: TMatrix;
var L: TStringList;
    i, j: integer;
begin
 if(s = 'малый зал') then begin
   L := TStringList.Create;
   ...
   L.Free; //У вас больше НЕТ ОБЪЕКТА(переменная осталась, и в ней теперь какой-то "мусор")
//P.S. в таких случаях (если переменная допускает малейшую возможность дальнейшего использования хотя бы теретически) рекомендуется 
FreeandNil(L);  { смотри} https://www.gunsmoker.ru/2009/04/freeandnil-free.html
   ....
 end
 else
   L := TStringList.Create;//и в таком случае(см. первое замечание) это не работает (else как никак)
   
 L.LoadFromFile('places.dat'); // а теперь читаем из файла, НО КУДА?.. (см. туда же)

[evg_m]

i:=sDBGrid2.SelectedIndex;
 s :=sDBGrid2.DataSource.DataSet.Fields.Fields[i].Value;

чревато (не всегда конечно и этим опасно).
НИКТО не гарантирует, что колонки Grid и поля НД будут иметь СОГЛАСОВАННЫЕ индексы.
банальное перетаскивание колонок Grid-a.

s:=sDBGrid2.Columns.Item{column?}[i].Field.As...

   result[i, j] := StrToInt(G.Cells[j, i]);

какой такой result ?
вы его создали? result:=TMatrix.Create....
вы его присвоили из параметров? result:=xxx; Но в этом случае разумнее просто использовать оный объект. xxx[i,j]:=...
вы его присвоили из глобальных переменных? тоже самое замечание о разумности.
да и использование глобальных переменных смотри https://www.gunsmoker.ru/2011/04/blog-post.html

function TForm5.GetMatrix: TMatrix;
var L: TStringList;
    i, j: integer;
begin
 if(s = 'малый зал') then // смотри замечание(и ссылку!!!) о глобальных переменных

[Serge_Bliznykov]

  else
  begin
   L := TStringList.Create;
 L.LoadFromFile('places.dat');
 for i := 0 to L.Count - 1 do
  G.Rows[i].CommaText := L.Strings[i];
 L.Free;
 for i := 0 to R do
  for j := 0 to C do
   result[i, j] := StrToInt(G.Cells[j, i]);
  end;
end;