procedure TForm1.DBISAMSessionPassword(Sender: TObject;
	var Continue: Boolean);
begin
   DBISAMSession.AddPassword('DBISAM');
   Continue := TRUE;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   TableUser.Active := not TableUser.Active;
end;

procedure TForm1.DBISAMEngineBeforeUpdateTrigger(Sender: TObject;
   TriggerSession: TDBISAMSession; TriggerDatabase: TDBISAMDatabase;
   const TableName: String; CurrentRecord: TDBISAMRecord);
begin
   ShowMessage('Called');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   TableId.Active := not TableId.Active;
end;