[NumLock]

событие AfterInsert:

Код:

procedure TForm1.Table1AfterInsert(DataSet: TDataSet);
begin
  Table1.Cancel;
end;

когда нужно добавить руками:

Код:

  Table1.AfterInsert:=nil;
  Table1.Insert;
  Table1.AfterInsert:=Table1AfterInsert;