Смотри тут: http://forum.antichat.ru/thread32191-delphi+joiner.html
Там и с исходниками...