como enviar un archivo comprimido con Tcliensocket

[infochica]

Hola a todos:

Estoy haciendo un programa de envio de ficheros comprimidos en gz utilizando el componente Tclientsocket de delphi, hasta ahi bien. El error es que nunca me llega la ultima linea del fichero al servidor. Utilizo este codigo para mandar el fichero comprimidor:

vpath:='C:\Documents and Settings\mireya\Mis documentos\'+nombrefichero;
Assignfile(A,vpath);
reset(A);
Longitud:=FileSize(A);
Leidos:=0;
while Longitud > 0 do
begin
move(buff2,Buff,sizeof(Buff));
BlockRead(A,Buff[0],SizeOf(Buff),Leidos);
ClientSocket1.socket.SendBuf(Buff[0],SizeOf(Buff));
Longitud:=Longitud - Leidos;
end;
CloseFile(A);

Haber si alguien me puede ayudar.

Gracias