Как загрузить StringGrid по содержимому, выбранного в OpenDialog текстового файла?

procedure TForm8.Button1Click(Sender: TObject);
const m = 10; n = 7;
type BootLine = array [0..n, 0..m] of string[20];
var FileData: TextFile;
var i,j:integer;
begin
  OpenDialog1.Filter := 'Текстовые файлы (*.txt)|*.txt|';
    if OpenDialog1.Execute then
begin
  AssignFile (FileData, OpenDialog1.FileName);
  Reset(FileData);
    for i := 1 to n do
    for j := 0 to m do
begin
  Readln(FileData, BootLine[j, i]);
  StringGrid1.Cells[j,i] := BootLine[j, i];
end;
  CloseFile(FileData);
end
    else Exit
end;

StringGrid1.Cells[j,i] := BootLine[j, i];

for j := 0 to m do

type BootLine = array [0..n, 0..m] of string[20];

// создание массива
Setlength(a,n,n);
randomize;
for i := 0 to n-1 do
for j := 0 to n-1 do begin
    a[i,j] := Random(255);
    StringGrid1.Cells[j,i] := IntToStr(a[i,j]);
    end;

procedure TForm8.Button1Click(Sender: TObject);
var StrList: TStringList;
const m = 10; n = 7;
type BootLine = array [0..m, 0..n] of string[20];
var FileData: TextFile;
    i,j:integer;
begin
  OpenDialog1.Filter := 'Текстовые файлы (*.txt)|*.txt';
    if OpenDialog1.Execute then
begin
  AssignFile (FileData, OpenDialog1.FileName);
  Reset(FileData);
    for i := 1 to n do
    for j := 0 to m do
begin
  Readln(FileData, BootLine[i, j]);
  StringGrid1.Cells[j,i] := BootLine[i, j];
end;
  CloseFile(FileData);
end
    else Exit
end;

const m = 10; n = 7;
var FileData: TextFile;
    BootLine:array [0..m, 0..n] of string[20];
    i,j:integer;
begin
  OpenDialog1.Filter := 'Текстовые файлы (*.txt)|*.txt';
  if not OpenDialog1.Execute then exit;
 
  AssignFile (FileData, OpenDialog1.FileName);
  Reset(FileData);
    for i := 0 to n do
    for j := 0 to m do begin
        Readln(FileData, BootLine[i, j]);
        StringGrid1.Cells[j,i] := BootLine[i, j];
        end;
  CloseFile(FileData);
end;

//var StrList: TStringList;
const m = 10; n = 7;
TYPE mas = array [0..m, 0..n] of string[20];
var FileData: TextFile;
    BootLine:mas;
    i,j:integer;

AssignFile (fData, 'Data.txt'); 
Reset(fData); 
for i := 1 to n do 
for j := 0 to m do 
begin 
Readln(fData, S[j, i]); 
StringGrid1.Cells[j,i] := S[j, i]; 
end; 
CloseFile(fData);

procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
 var
   f:          TextFile;
   iTmp, i, k: Integer;
   strTemp:    String;
 begin
   AssignFile(f, FileName);
   Reset(f);
   with StringGrid do
   begin
     // Get number of columns 
    Readln(f, iTmp);
     ColCount := iTmp;
     // Get number of rows 
    Readln(f, iTmp);
     RowCount := iTmp;
     // loop through cells & fill in values 
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         Readln(f, strTemp);
         Cells[i, k] := strTemp;
       end;
   end;
   CloseFile(f);
 end;

procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
 var
   f:          TextFile;
   iTmp, i, k: Integer;
   strTemp:    String;
 begin
   AssignFile(f, FileName);
   Reset(f);
   with StringGrid do
   begin
     // Get number of columns 
    Readln(f, iTmp);
     ColCount := iTmp;
     // Get number of rows 
    Readln(f, iTmp);
     RowCount := iTmp;
     // loop through cells & fill in values 
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         Readln(f, strTemp);
         Cells[i, k] := strTemp;
       end;
   end;
   CloseFile(f);
 end;

procedure TForm8.Button1Click(Sender: TObject);
var StrList: TStringList;
const m = 10; n = 7;
var FileData: TextFile;
    i,j:integer;
    BootLine:array [0..m, 0..n] of string[20];
begin
  OpenDialog1.Filter := 'Текстовые файлы (*.txt)|*.txt';
    if OpenDialog1.Execute then
begin
  AssignFile (FileData, OpenDialog1.FileName);
  Reset(FileData);
    for i := 0 to n do
    for j := 0 to m do
begin
  Readln(FileData, BootLine[j, i]);
  StringGrid1.Cells[i,j] := BootLine[j, i];
end;
  CloseFile(FileData);
end
    else Exit
end;

function Foo(const PathSrcFile: string): TSomeType;
var
  DataFileBuffer: TStringList;
  TmpBuffer: string;
  i: integer;
begin
  try
    DataFileBuffer := TStringList.Create;
  except
    // TODO
  end;
 
  try
    DataFileBuffer.LoadFromFile(PathSrcFile);
    for i := 0 to DataFileBuffer.Cont -1 do
    begin
      TmpBuffer := DataFileBuffer.Strings[i];
      DoStuff(TmpBuffer);
    end;
  finally
    DataFileBuffer.Free;
  end;
end;

function Foo(const PathSrcFile: string): TSomeType; // просто тип, абстрактный, впиши любой нужный
var
  DataFileBuffer: TStringList; // буффер для хранения содержимого файла
  TmpBuffer: string; // временный буффер для хнанения и передачи строки
  i: integer; // счетчик цикла
begin
  try
    DataFileBuffer := TStringList.Create; // создаем объект типа TStringList
  except
    // TODO обработать исключение, выйти из функции
  end;
 
  try
    DataFileBuffer.LoadFromFile(PathSrcFile); // загрузить файл в буффер
    for i := 0 to DataFileBuffer.Cont -1 do
    begin
      TmpBuffer := DataFileBuffer.Strings[i]; // копировать данные во временный буффер
      DoStuff(TmpBuffer); // твоя функция обработки данных
    end;
  finally
    DataFileBuffer.Free; // освобождение занятых ресурсов
  end;
end;

procedure TForm8.Button1Click(Sender: TObject);
var StrList: TStringList;
const m = 9; n = 6;
var FileData: TextFile;
    i,j:integer;
    BootLine:array [0..m, 0..n] of string[20];
begin
  OpenDialog1.Filter := 'Текстовые файлы (*.txt)|*.txt';
    if OpenDialog1.Execute then
begin
  AssignFile (FileData, OpenDialog1.FileName);
  Reset(FileData);
    for i := 0 to m do
    for j := 0 to n do
begin
  Readln(FileData, BootLine[i, j]);
  StringGrid1.Cells[j,i] := BootLine[i, j];
end;
  CloseFile(FileData);
end
    else Exit
end;

const m = 10; n = 7;
var FileData: TextFile;
    i,j:integer;
    BootLine:array [0..m, 0..n] of string[20];

const
m = 10;
n = 7;
var FileData: TextFile;
    i,j:integer;
    BootLine:array [0..m-1, 0..n-1] of string[20];

for i := 0 to n do
    for j := 0 to m do
begin
  Readln(FileData, BootLine[j, i]);
  StringGrid1.Cells[i,j] := BootLine[j, i];
end;

       for i := 0 to m-1 do
       for j := 0 to n-1 do
       begin
            Readln(FileData, BootLine[i, j]);
            StringGrid1.Cells[j,i] := BootLine[i, j];
       end;

opendialog1.InitialDir:=extractfilepath(application.ExeName);

unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const
m = 10;
n = 7;
var FileData: TextFile;
    i,j:integer;
    BootLine:array [0..m-1, 0..n-1] of string[20];
begin
  OpenDialog1.Filter := 'Текстовые файлы (*.txt)|*.txt';
  if OpenDialog1.Execute then
  begin
       AssignFile (FileData, OpenDialog1.FileName);
       Reset(FileData);
       for i := 0 to m-1 do
       for j := 0 to n-1 do
       begin
            Readln(FileData, BootLine[i, j]);
            StringGrid1.Cells[j,i] := BootLine[i, j];
       end;
       CloseFile(FileData);
   end
   else Exit
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
opendialog1.InitialDir:=extractfilepath(application.ExeName);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
end.