Subject IB_Connection.ConnectionStatus does not seem to work
Author etish2000
The following code segment was place in the OnTimer event that
running once every second. No matter the state of the connection,
this property always returns csConnected.

Am I doing something wrong, or is this not a good property to use?

with AdminDataForm.do
begin
case ConnectionStatus of
csDisconnected: lblCnctStat.Caption := 'Disconnected';
csDisconnectPending: lblCnctStat.Caption := 'DisconnectPending';
csDropPending: lblCnctStat.Caption := 'DropPending';
csForcedConnectPending:
lblCnctStat.Caption := 'ForcedConnectPending';
csConnected: lblCnctStat.Caption := 'Connected';
csConnectPending: lblCnctStat.Caption := 'ConnectPending';
csCreatePending: lblCnctStat.Caption := 'ConnectPending';
else
lblCnctStat.Caption := 'Unknown';
end;
end;