Foro de programacion

Hola a todos:

Estoy haciendo un programa que envia un fichero en formato gz a un servidor mediante el componente Tclientsocket, hasta ahi todo bien. El caso es que el fichero comprimido no me llega entero, siempre le falta la ultima linea. Os pongo el codigo para haber si hago algo mal:

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