// Create
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  FWebSocket := TWebSocket.Create(Self);
  FWebSocket.OnError := WebSocketError;
  FWebSocket.OnText := WebSocketText;
end;

// Destroy
procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  FWebSocket.DisposeOf;
end;

// Connect
procedure TfrmMain.Button1Click(Sender: TObject);
begin
  FWebSocket.Connect('wss://echo.websocket.org');
end;

// Send Text
procedure TfrmMain.Button2Click(Sender: TObject);
begin
  if FWebSocket.Connected then
    FWebSocket.Send('Hello, WebSocket !');
end;

// Established Connection.
// After the connection is established, communication becomes possible
procedure TfrmMain.WebSocketEstablished(Sender: TObject);
begin
  Memo1.Lines.Add('Estalished !');
end;

// ReceiveText from Server
procedure TfrmMain.WebSocketText(Sender: TObject; const iText: String);
begin
  Memo1.Lines.Add('RECEIVED: ' + iText);
end;

// Error Handler
procedure TfrmMain.WebSocketError(
  Sender: TObject;
  const AErrorCode: TSSLSocketErrCode;
  const AException: Exception);
begin
  Memo1.Lines.Add(Format('ERROR: %d  %s', [AErrCode, AException.Message]));
end;