Direct Connection (p2p) Chat Component or ActiveX

I want to add a Chat (Instant Messaging) Feature to my existing Desktop Application written in Delphi-7. I want a Chat Client component as Delphi-7 VCL Component with full source code (which I have prefered) or as an ActiveX library. Component or ActiveX must have properties/methods/events to write a complete Chat Client Application with features like : 1- Give me Client Machine Connection Information (IP,Port,etc... ) 2- Send/Receive Text messages 3- Send/Receive Binary Data 4- Send/Receive File All of message/data/file packets must send directly to other client, WITHOUT sending to a Server. This part is VERY important. Because There are lots of Chat SDK implementations and they are all using a Server/Hub as dispacher. I don't want my server download/upload packets while clients communicating each other. Clients can be in same LAN or internet. Interrnet Clients can behind NATs / Firewalls. I will write a Server by myself , But my server will hold only Client List and their connection parameters like IP,Port,etc.. My Server will not forward packets or anything else. I dont know the technology of uTorrent, but I think they are working in same manner. Please Only Expert Programmers Who did before working p2p communication applications. I want to try your Component or ActiveX before any payment. Thank you.