Delphi Cool Overlap Socket Class

there is INDY for winsock development,but it's not so good for our projects,so I decided to write a better,pure TCP socket,it's asynchronous,base on WinSock2,use Overlap-I/O,it's a client class,but also can be used as a server class,so it can bind to specific port,even multiple ports,it uses multiple thread techlogy to improve recv/send efficiency. So,it's not the best TCP class,and delphi is an older IDE,but I hope my work can be used by more people around the world, not only my teamates.
Sorry for my poor English,I will try my best to add some comments in my source file,hope you can understand, if it's useful for you,that is my pleasure.