--- ibx/trunk/examples/employee/unit1.pas	2018/01/18 14:37:35	106
+++ ibx/trunk/examples/employee/unit1.pas	2018/01/18 14:37:40	107
@@ -99,7 +99,6 @@ type
     EmployeeSource: TDataSource;
     IBDatabase1: TIBDatabase;
     IBTransaction1: TIBTransaction;
-    procedure EmployeesAfterPost(DataSet: TDataSet);
     procedure EmployeesValidatePost(Sender: TObject; var CancelPost: boolean);
     procedure JobCodeChangeTimerTimer(Sender: TObject);
     procedure JobGradeChangeTimerTimer(Sender: TObject);
@@ -230,11 +229,6 @@ begin
   end;
 end;
 
-procedure TForm1.EmployeesAfterPost(DataSet: TDataSet);
-begin
-  Employees.Refresh
-end;
-
 procedure TForm1.EmployeesValidatePost(Sender: TObject; var CancelPost: boolean
   );
 begin