var QueueUrl := 'https://...'; var Poller = TSQSQueuePoller.Create(QueueUrl) as ISQSQueuePoller; Poller.SkipDelete := True; Poller.Poll( procedure(const AMessages: TSQSMessages) begin for var LMessage in AMessages do begin // Process the message. end; // Delete the messages. Poller.DeleteMessages(AMessages); end );