The following procedure has been assigned to the onclick event for
TIB_NavigationBar1

procedure TForm2.IB_NavigationBar1Click(Sender: TObject);
begin
If IB_QueryAnimal.FieldByName('AnimalStatus').AsString = '' then
GroupBox1.Color := clBtnFace
Else
GroupBox1.Color := clBtnShadow;
end;

You can click to hearts content as you page through the database, and not
once does the event fire.
The on Before an After events do fire!

Thanks
Adrian