Tema sockets ¿Por qué no se envían todos los datos?

[noob]

Tengo un servidor que todo lo que le llega lo almacena en un archivo de texto:

Código Delphi [-]
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  Archivo: TextFile;
begin
  System.Assign(Archivo,'archivo.txt');
  System.Rewrite(archivo);
  System.Write(archivo,Socket.ReceiveText);
  System.Close(Archivo);
end;

y tengo un cliente que envía todo el contenido de un archivo de texto al servidor:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  caracter: char;
begin
  System.Assign(archivo,'archivo.txt');
  System.Reset(archivo);
  repeat
    System.Read(archivo,caracter);
    ClientSocket1.Socket.SendText(caracter);
  until (EOF(archivo))
  System.Close(archivo);
end;

El caso es que no me llegan todos los datos al servidor, sólo unos pocos y me pregunto por qué pasa esto si en teoría se envían todos y cada unos de los caracteres del fichero original.

Thanks!