RTCPeerConnection em Delphi

uses
  sgcP2P, sgcP2P_DataChannel;

// TFormPeer guarda FPeer, FChannel, FIncoming: TStringList e os handlers

procedure TFormPeer.CreatePeer;
begin
  FPeer := TsgcRTCPeerConnection.Create(nil);
  FPeer.RTCOptions.ICEServers.AddURL('stun:stun.l.google.com:19302');
  FPeer.RTCOptions.ICE.TURN := False;  // ainda sem servidor TURN

  FPeer.OnLocalDescription := OnLocalDescription;
  FPeer.OnDataChannel      := OnDataChannel;

  // lado de saída. CreateDataChannel liga RTCOptions.DTLS
  FChannel := FPeer.CreateDataChannel('chat');
  FChannel.OnMessage := OnChannelMessage;
  FPeer.CreateOffer;
end;

procedure TFormPeer.OnLocalDescription(Sender: TObject;
  const aType, aSDP: string);
begin
  // aType é 'offer' ou 'answer'
  SignalToPeer(aType, aSDP); // pelo seu canal de sinalização WebSocket
end;

procedure TFormPeer.OnDataChannel(Sender: TObject;
  aChannel: TsgcRTCDataChannel);
begin
  FChannel := aChannel;
  FChannel.OnMessage := OnChannelMessage;
end;

procedure TFormPeer.OnChannelMessage(Sender: TObject;
  const aText: string);
begin
  // dispara em uma thread de trabalho, faça o marshalling antes de tocar um controle
  FIncoming.Add(aText);
end;