{ Псевдокод ON}
function OnDataChange(pvValues: POleVariantArray); stdcall;
begin
{    pvValues - массив изменившихся тэгов.                                    *
  Надо разослать его клиентам ~ 100 компов в локалке.                         *
  Здесь и хочу использовать ZMQ сокеты.                                       *
  Поскольку функция выполняется в контексте потока, созданного OPC-сервером,  *
  сокет надо создавать здесь, каждый раз при входе в процедуру,               *
  и убивать на выходе. Как-то не очень... Вот и прошу совета.                 }
  Socket := zmq_socket(Context, ZMQ_PUB);
  zmq_bind(Socket, 'tcp://*:5555');
  // zmq_send - Рассылка тэгов ...                                            *
  zmq_close(Socket);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Context := zmq_ctx_new;
  SrvIf := CreateComObject(ProgIDToClassID('SERVAK')) as IOPCServer;
  SrvIf.AddItems(Items);       // Говорим OPC, какие тэги нас интересуют,     *
                               // около 15000 штук.                           *
  SrvIf.Advise(@OnDataChange); // OPC-сервер создает поток, и при изменении   *
                               // интересующих нас тэгов в контексте этого    *
                               // потока вызывает функцию OnDataChange        *
end;
{ Псевдокод OFF}

{ Псевдокод ON}
function OnDataChange(pvValues: POleVariantArray); stdcall;
begin
  if not Assigned(Socket) then
  begin
    Socket := zmq_socket(Context, ZMQ_PUB);
    zmq_bind(Socket, 'tcp://*:5555');
  end;
  // zmq_send - Рассылка тэгов ...                                            *  
  // zmq_close(Socket); // Закрывать надо где-то не здесь. А где?

end;
{ Псевдокод OFF}