delphi를 시작한지 1달 정도 되었습니다.

다름이 아니오라 소켓통신은 동기식과 비동기식으로 나뉜다고 들었습니다.

동기식 통신을 하기 위해서 우선 클라이언트에서 메시지를 '##보낼분자열길이@@보낼문자열' 으로 서버쪽에 보내서 서버쪽에서는 클라이언트쪽에서 보낸 메시지를 받아 그값이 정상적으로 들어왔나를 체크해서 만약 들어오지 않았을 경우는 해당 클라이언트에세 메시지가 정상적으로 도착하지 않았음을 알리고 해당 메시지를 다시 보내라는 것을 구현하기 위해서는 어떻게 해야할지 잘 모르겠습니다.

아시는분 계시면 답변 좀 부탁드리겠습니다.

--------Client에서 보내는 부분
procedure TForm1.memSendKeyPress(Sender: TObject; var Key: Char);
var
  SendMsg : string;
  i: Integer;
begin
  if key = #13 then
  begin
    if ClientSocket1.Active then
    begin
      key := #0;
      for i := 0 to 99 do
      begin
      SendMsg := '##'+ format('%10d', [length(Form1.memSend.Text)]) + '@@';
            SendMsg := SendMsg + Form1.memSend.Text;
      end;
      ClientSocket1.Socket.SendText(SendMsg);
      form1.memSend.Lines.Clear;
      form1.memSend.SetFocus;
      form1.memSend.SelStart := 0;
    end
    else
    begin
      memReceive.Lines.Add('Cannot send message when disconnected!');
      form1.memSend.Lines.Clear;
      form1.memSend.SetFocus;
      form1.memSend.SelStart := 0;
    end;
  end;
end;


----Server에서 받는 부분
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  ReceiveMsg, body_data : string;
  st, en, i, j, body_length : integer;
begin
  ReceiveMsg := Socket.ReceiveText;
  body_data := ReceiveMsg;
  st := pos('##', ReceiveMsg);
  en := pos('@@', ReceiveMsg);
  if (st > 0 ) and (en > 0) then
  begin
    //  ##0000000000@@
    body_length := StrToInt(copy(ReceiveMsg, st + 2, 10));
    body_data := copy(ReceiveMsg, en+2, 100000);
  end;
  if length(body_data) = body_length then
  begin
    ReceiveMsg := body_data;
    Socket.SendText('##'+format('%10d', [length(ReceiveMsg)])+'@@'+ReceiveMsg);
    Form1.memReceive.Lines.Add('##'+format('%10d', [length(ReceiveMsg)])+'@@'+ReceiveMsg);
  end;
  if length(body_data) > body_length then
  begin
    Form1.memReceive.Lines.Add('!ERROR');
  end;
end;