Добавление в конец списка DBGrid

[foravastxxx]

у меня в принципе одна процедура

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, DBAccess, MSAccess, MemDS, StdCtrls, DBCtrls,
  Mask, DAScript, MSScript;

type
  TForm1 = class(TForm)
    MSQuery1: TMSQuery;
    MSDataSource1: TMSDataSource;
    MyBD: TMSConnection;
    MSTable1: TMSTable;
    DBMemo1: TDBMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBComboBox1: TDBComboBox;
    Button1: TButton;
    MSDataSource2: TMSDataSource;
    MSUpdateSQL1: TMSUpdateSQL;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    DBGrid1: TDBGrid;
    procedure Button1Click(Sender: TObject);
   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
e1,e2,e3: string;
begin
MSQuery1.Insert;
e1:=Edit1.Text;e2:=Edit2.Text;e3:=Edit3.Text;
MSQuery1.SQL.Add('INSERT INTO Sotrudnik (ФИО,Кабинет,Телефон)');
MSQuery1.SQL.Add('VALUES (' +QuotedStr(e1)+','+QuotedStr(e2)+','+QuotedStr(e3)+')');
MSQuery1.ExecSQL;

end;
end.

остальное сделано просто через свойство компонентов, подключен сервер, база.
таблица выводиться нормально, которую надо заполнять

[rdama]

Этой строчки быть не дожно

MSQuery1.Insert;

[foravastxxx]

получилось, спасибо огромное

[rdama]

Ну я так понимаю описание ошибки не вставилось.