Создать программу с элементом TStringGrid для работы с текстовым файлом

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus, Grids;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
//В комментариях - свойства компонентов, кроме Name, которые менял в Object Inspector:
    MainMenu1: TMainMenu;
    nSave: TMenuItem;
    nEdit: TMenuItem;
    nOpen: TMenuItem;
    mnuFile: TMenuItem;
    mnuExit: TMenuItem;
    OD: TOpenDialog;
    SD: TSaveDialog; //DefaultExt=txt
    SG: TStringGrid; //FixedRows = 1, FixedCols = 0, DefaultColWidth = 100, RowCount = 2, ColCount = 2
    procedure mnuExitClick(Sender: TObject);
    procedure nEditClick(Sender: TObject);
    procedure nOpenClick(Sender: TObject);
    procedure nSaveClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.mnuExitClick(Sender: TObject);
begin
//Меню Выход
  Close;
end;
 
procedure TForm1.nEditClick(Sender: TObject);
begin
//Включение редактирования Грида
  if not(goEditing in SG.Options) then SG.Options := SG.Options + [goEditing];
end;
 
procedure TForm1.nOpenClick(Sender: TObject);
//Загрузка файла в таблицу через диалог открытия файла
var L: TStringList;
    i: integer;
begin
  if not OD.Execute then Exit;
  SG.LoadFromCSVFile(OD.FileName, ';', true);
end;
 
procedure TForm1.nSaveClick(Sender: TObject);
//Сохранение таблицы в файл через стандартный диалог
//при необходимости - отключение режима редактирования
begin
  if not SD.Execute then Exit;
  SG.SaveToCSVFile(SD.FileName, ';', true);
  if goEditing in SG.Options then SG.Options := SG.Options - [goEditing];
end;
 
end.