diff --git a/packages/fcl-web/examples/websocket/client/wsclient.lpr b/packages/fcl-web/examples/websocket/client/wsclient.lpr
index 1f77f9de38..49edd0200f 100644
--- a/packages/fcl-web/examples/websocket/client/wsclient.lpr
+++ b/packages/fcl-web/examples/websocket/client/wsclient.lpr
@@ -122,7 +122,8 @@ end;
 
 procedure TWebsocketClientApplication.Usage(const aError : string);
 begin
-  { add your help code here }
+  if aError<>'' then
+    Writeln('Error : ',aError);
   writeln('Usage: ', ExeName, ' [options]');
   Writeln('where options is one or more of:');
   Writeln('-h  --help             this help text');