This delphi control implements a stomp client. In background it makes use of TClientSocket (under Delphi controls tab "internet" - ClientSocket). Because nonblocking TCP suited its original use better, so I have chosed this mode.
The code for the control is in "source" directory. In "example" directory there is an straightforward example.
It should work properly on Delphi 6 and Delphi 7.
To get the source, refer to "Developer SVN access" and check out the source anonymously. You may contact its author at firstname.lastname@example.org