[ParusB]

Код:

procedure TForm5.N1Click(Sender: TObject);
begin
IF DBGrid1.DataSource=Form1.DataSource1 then
Form1.ADOTable1.Append;
IF DBGrid1.DataSource=Form1.DataSource2 then
Form1.ADOTable2.Append;
IF DBGrid1.DataSource=Form1.DataSource3 then
Form1.ADOTable3.Append;
IF DBGrid1.DataSource=Form1.DataSource4 then
Form1.ADOTable4.Append;
end;

procedure TForm5.N2Click(Sender: TObject);
begin
If Application.MessageBox('Вы действительно хотите удалить эту запись','!!!Внимание!!!',MB_OKCANCEL)=id_OK then
begin
IF DBGrid1.DataSource=Form1.DataSource1 then
Form1.ADOTable1.Delete;
IF DBGrid1.DataSource=Form1.DataSource2 then
Form1.ADOTable2.Delete;
IF DBGrid1.DataSource=Form1.DataSource3 then
Form1.ADOTable3.Delete;
IF DBGrid1.DataSource=Form1.DataSource4 then
Form1.ADOTable4.Delete;
end;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
IF DBGrid1.DataSource=Form1.DataSource1 then
begin
if Form1.ADOTable1.Modified then Form1.ADOTable1.Post;
end;
IF DBGrid1.DataSource=Form1.DataSource2 then
begin
if Form1.ADOTable2.Modified then Form1.ADOTable2.Post;
end;
IF DBGrid1.DataSource=Form1.DataSource3 then
begin
if Form1.ADOTable3.Modified then Form1.ADOTable3.Post;
end;
IF DBGrid1.DataSource=Form1.DataSource4 then
begin
if Form1.ADOTable3.Modified then Form1.ADOTable3.Post;
end;
end;

N1Click - через popupmenu добавляю
N2Click - удаляю
редактируется грид сам по себе
а Button1Click - кнопка сохранить