function GetOnline(Connection: TSQLConnection): Boolean;
GetOnline
Connection
EDatabaseError
Example 4.4.
ShowMessage('The connection is ' + IfThen(GetOnline(SQLConnection1), 'online', 'offline') + '.');