FEventAlerter.Connection          := Conn;
    FEventAlerter.Options.Synchronize := True;
    
    FEventAlerter.Names.Add('SERVICE=MyService');
    FEventAlerter.Names.Add('QUEUE=MyQueue');

    FEventAlerter.OnAlert             := ReceiveMessageEvent;

    FEventAlerter.Register;

for i := 0 to FMessageTab.Rows.Count - 1 do begin
    sMsg := FMessageTab.Rows[i].AsString['message_body'];
    sType := GetAttr('type');
    sSrc := GetAttr('source');
    Result := CompareText(sType, 'subscribe') <> 0;
    if (CompareText(sType, 'change') = 0) and (CompareText(sSrc, 'timeout') <> 0) or
       not Result then begin
      sInfo := GetAttr('info');
      sVal := GetValue('qn:Message');
      FMsgThread.EnqueueMsg(TFDPhysMSSQLEventMessage.Create(sVal, sType, sSrc, sInfo));
    end;
  end;

if (CompareText(sType, 'change') = 0) and (CompareText(sSrc, 'timeout') <> 0) or
       not Result then begin

-- https://technet.microsoft.com/en-us/library/ms189308(v=sql.105).aspx
-- Query Notification Messages:
DECLARE @Message NVARCHAR(512) = (
  '<qn:QueryNotification '+
    'xmlns:qn="http://schemas.microsoft.com/SQL/Notifications/QueryNotification" '+
    'type="change" source="data" info="truncate"> '+
      '<qn:Message>' + 'Test messege' + '</qn:Message> '+
  '</qn:QueryNotification>'
)

IF NOT @convHandler IS NULL
  SEND ON CONVERSATION  @convHandler 
    MESSAGE TYPE [DEFAULT] (@Message)

-- https://technet.microsoft.com/en-us/library/ms189308(v=sql.105).aspx
-- Query Notification Messages:
DECLARE @Message NVARCHAR(512) = 'Test messege'

IF NOT @convHandler IS NULL
  SEND ON CONVERSATION  @convHandler 
    MESSAGE TYPE [DEFAULT] (@Message)

DECLARE @Message NVARCHAR(512) = 'Test messege'

IF NOT @convHandler IS NULL
  SEND ON CONVERSATION  @convHandler (@Message)