مشكله في الحدث AfterInsert

[palunix]

السلام عليكم ,

احاول عند ادخال سجل ان يعمل الحدث الخاص بـ AfterInsert وتظهر الرسالة بادخال السجل
لا ادري ان كان هناك خطا ,,

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
ABSQuery1.DatabaseName:='new.ABS';
ABSQuery1.SQL.Add(
         'insert into Constz(name,Sdate,Edate,info) values("xxx","11/2/2002","11/2/2002","xxzzz")');
    ABSQuery1.ExecSQL();
  ABSTable1.Refresh;
  ABSTable1.AfterInsert:=  ABSQuery1AfterInsert;
end;

procedure TForm1.ABSQuery1AfterInsert(DataSet: TDataSet);
begin
ShowMessage('the record is inserted');
end;

end.