Code for sending (producing) and receiving (consuming) messages:

procedure TNewApiTests.TestSendMessage;
var
  Factory: IConnectionFactory;
  Context: IMQContext;
  Destination: IQueue;
  Producer: IMQProducer;
  Consumer: IMQConsumer;
  TextMessage: ITextMessage;
begin
  Factory := TBTConnectionFactory.Create;
  
  Context := Factory.CreateContext;
  try
    Destination := Context.CreateQueue(GetQueueName);
 
    Producer := Context.CreateProducer;
    Producer.Send(Destination, 'Hello World');
 
    Consumer := Context.CreateConsumer(Destination);
    TextMessage := Consumer.Receive(2500) as ITextMessage;
 
    CheckEquals('Hello World', TextMessage.Text);
  finally
    Context.Close;
  end;
end;

Code for sending (producing) messages:

// Getting connection from the server and starting it
ConnectionFactory := TBTConnectionFactory.Create;

try
    Connection := ConnectionFactory.CreateConnection;
    Connection.Start;

    // Messages are sent and received using a Session. We will
    // create here a non-transactional session object. If you want
    // to use transactions you should set the first parameter to 'true'
    Session := Connection.CreateSession(False, amAutoAcknowledge);

    // Destination represents here our queue 'ExampleQueue' on the
    // server. You don't have to do anything special on the
    // server to create it, it will be created automatically.
    Destination := Session.CreateQueue('ExampleQueue');

    // MessageProducer is used for sending messages (as opposed
    // to MessageConsumer which is used for receiving them)
    Producer := Session.CreateProducer(Destination);                

    // We will send a small TextMessage saying 'My hovercraft is full of eels' in Mandarin:
    TextMessage := Session.CreateTextMessage("我的氣墊船裝滿了鱔魚");

    // Here we are sending the message
    Producer.Send(Message);
finally
    Connection.Close;
end;

Code for receiving (consuming) messages:

// Getting connection from the server and starting it
ConnectionFactory := TBTConnectionFactory.Create;

try
    Connection := ConnectionFactory.CreateConnection;
    Connection.Start;

    // Messages are sent and received using a Session. We will
    // create here a non-transactional session object. If you want
    // to use transactions you should set the first parameter to 'true'
    Session := Connection.CreateSession(False, amAutoAcknowledge);

    // Destination represents here our queue 'ExampleQueue' on the
    // server. You don't have to do anything special on the
    // server to create it, it will be created automatically.
    Destination := Session.CreateQueue('ExampleQueue');

    // MessageConsumer is used for receiving messages (as opposed
    // to MessageProducer which is used for sending them)
    Consumer := Session.CreateConsumer(Destination);                

    // We will try to receive send a TextMessage within 5 seconds:
    TextMessage := Consumer.Receive(5000);

    WriteLn(TextMessage.Text);

finally
    Connection.Close;
end;