O tambien puedes mostrar cualquier estado en un StatusBar.
Código Delphi
[-]procedure TDataModule2.DSCustomersStateChange(Sender: TObject);
begin
FCustomers.StatusBar1.Panels[1].Text :=
'State = ' + GetEnumName(TypeInfo(TDataSetState),
Ord(IBCustomers.State));
end;
Saludos.