아래코드에서 잘못된 부분좀 지적해주세요


SendBuff 시   데이타가 전부 전송이 안되나봅니다.

<!--CodeS-->
var
    SendBuff : PSendBuff;
    TempChar : Pointer;

if ClientSocket.Active then
         begin
            GetMem(TempChar , VSendStream.Size);
            CopyMemory(TempChar , VSendStream.Memory , VSendStream.Size);

            New(SendBuff);
            SendBuff^.sdMsgNum:= MSG_VIDEODISP;
            SendBuff^.sdSize  := VSendStream.Size;
            SendBuff^.sdBuff  := TempChar;

            VRecvStream.Clear;
            WriteLen := VRecvStream.Write(Pointer(SendBuff^.sdBuff)^ ,VSendStream.Size);
            try
              VRecvStream.Position:=0;
              DispJpeg.LoadFromStream(VRecvStream);
              Image1.Picture.Graphic:=DispJpeg;
              Image1.Repaint;
            except
               raise Exception.Create('Jpeg LoadFromStream Error');
               Exit;
            end;

            ClientSocket.Socket.SendBuf(Pointer(SendBuff)^, VSendStream.Size+8);

         end;
<!--CodeE-->