Ayuda con sockets

[serebi]

Bueno les voy directo a la pregunta tengo 2 aplicaciones echas en delhpi 5 usando los sockets de delphi el problema que tnego es que el cliente tiene que mandar una cadena bastante grande y el servidor no la recive completa y despues de un tiempo recive la optra parte la parte que faltaba para mandar utilizo la funcion sendtext en su correspondiente evento es decir onread o onwrite y no se que puedo hacer o si conocen alguna forma de mandar una cadena grande por los sockets porfavor avisenme ademas creoq eu influye el echo de que los sockets trabajan por hilos diferentes por favor ayudenme si y perdon si este hilo esta en un foro incorrecto