[noob]

Se trata de un cliente que envía una enorme cadena de caracteres almacenada en un archivo de texto.

FTCP es un componente basado en sockets, TMain es el formulario y FSendIndex es un índice de ayuda, que se usa para saber en qué parte del buffer estoy (qué es lo que ya he enviado).

Quiero implementar esto:

Código Delphi [-]
{ Este evento si está correctamente asignado en el componente basado en sockets será llamado siempre que el buffer de envío del sistema operativo esté "de nuevo listo para ser llenado" }
procedure TForm1.OnCanSend(aSocket: TLSocket);
var
  n: Integer; // almacenará los resultados de .Send()
begin
  { repite el envío hasta que enviémos el buffer entero, o .Send devuelva 0 -- significa que hemos llenado el buffer de envío por ahora. Nota: FSendIndex  tiene que empezar por 1 para una cadena }
  repeat
    { intenta enviar el resto del buffer que aun no hemos enviado }
    n := FTCP.Send(FBuffer[FSendIndex], Length(FBuffer) - FSendIndex);
    { si hemos enviado algo, nos movemos en el buffer para no reenviar la misma parte }
    Inc(FSendIndex, n);
  until (n = 0) or (FSendIndex > Length(FBuffer));
end;

La explicación sería:

Primero se asignan todos los eventos del componente de sockets (OnReceive, etc), después lees algunos datos, del archivo dentro del FBuffer (mejor si es grande, hablamos de MB o más). Después inicializas el envio del buffer manualmente llamando al TMain.OnCanSend(). Esto intentará enviar tantos datos como sea posible hasta que o bien el buffer de envío esté lleno (n = 0), o se haya acabado de enviar.

Si el buffer fue llenado antes de que todos los datos fueran enviados, entonces obtendras la llamada TMain.OnCanSend() de nuevo, esta vez de forma automáticamente.

Espero haberme explicado.

==========EDITADO==========

Lo he solucionado haciendo un procedure.