<syntaxhighlight lang="delphi"> type TClientTimeoutEvent = procedure (Sender : TObject;
CliWSocket : TClientWSocket; var CanClose : Boolean) of object;
property OnClientTimeout : TClientTimeoutEvent; </syntaxhighlight>
Occurs when a client is disconnected because of lack of activity.
When a client had no more activity during some time specified by the ClientTimeout property, it is automatically disconnected. If this occurs, the OnClientTimeout event is triggred. The argument CanClose passed by var if initialized to TRUE. The event handler may reset it to FALSE so that the client is not disconnected.