COM Client identifizieren

[WoGe]

Hallo,

ich habe einen COM-Server. Mit folgendem Code kann ich allen angeschlossenen Clients den gesendeten Text zukommen lassen.

Delphi-Quellcode:

procedure TEventInv.SendText(const Text: WideString);
var
  Enum : IEnumConnections;
  ConnectData : TConnectData;
  Fetched : Cardinal;
begin
  Enum := GetEnumerator;
  if Enum <> nil then
  begin
    while Enum.Next(1, ConnectData, @Fetched) = S_OK do
      if ConnectData.pUnk <> nil then
        (ConnectData.pUnk as IEventInvEvents).OnText(Text);
  end;
  //frmComSrv.FEventsBuffer.OnText(Text);
end;

Wie kann ich den Client identifizieren, der das SendText-Ereignis ausgelöst hat?

mfg
wo