Обновление таблицы, при добавлении или редактировании записи, stringgrid

unit GridForm;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, SecondFormUnit, TeachersDataBase;
 
type
  TGridFrm = class(TForm)
    table: TStringGrid;
    Add: TButton;
    Edit: TButton;
    Delete: TButton;
    UpdateButton: TButton;
    procedure FormShow(Sender: TObject);
    procedure AddClick(Sender: TObject);
    procedure DeleteClick(Sender: TObject);
    procedure EditClick(Sender: TObject);
    procedure UpdateButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  GridFrm: TGridFrm;
 
implementation
 
{$R *.dfm}
 
 
Procedure ShowCannotAddRecordError;
begin
  Assert(false, 'Не получается добавить запись в файл');
  ShowMessage('Cannot add record to ' + DataBaseFileName);
end;
 
procedure TGridFrm.DeleteClick(Sender: TObject);
var
  index: Integer;
begin
  index := table.Selection.Top;
  DeleteRecord(index);
  ShowMessage('Запись удалена');
end;
 
procedure TGridFrm.EditClick(Sender: TObject);
var
  index: Integer;
begin
  index := table.Selection.Top;
  SecondForm.ShowModal;
  EditRecord(index, FileName, FileDepartament, FileMark)
end;
 
procedure TGridFrm.FormShow(Sender: TObject);
var
  i,j: integer;
begin
  table.RowCount := GetRecordsCount + 1;
  table.ColCount := 4;
  For i := 1 To GetRecordsCount Do
    begin
      Assert(Length(db^[i].name) > 0, 'Имя студента пустое!');
      Bublesort;
      table.Cells[0,0] := '№';
      table.Cells[1,0] := 'Name' ;
      table.Cells[2,0] := 'Department';
      table.Cells[3,0] := 'Mark';
      table.Cells[0,i] := FloatToStr(i);
      table.Cells[1,i] := db^[i].name;
      table.Cells[2,i] := db^[i].departament;
      table.Cells[3,i] := FloatToStr(db^[i].mark);
    end;
end;
 
procedure TGridFrm.AddClick(Sender: TObject);
begin
  SecondForm.ShowModal;
  If (SaveNewRecord(FileName, FileDepartament, FileMark) = false) Then
    ShowCannotAddRecordError;
  ShowMessage('Запись добавлена');
end;
 
end.