<!--CodeS-->
procedure TWSD_Main_F.IdTCPServerExecute(AThread: TIdPeerThread);
var
  Msg, resp, snsStr: string;
  aStream : TMemoryStream;
  aLen : integer;
begin
  Msg := AThread.Connection.CurrentReadBuffer;
  for i := 5 to length(Msg) do
     resp := resp + IntToHex(Byte(Msg[i]),2);

  sndStr := '5B0E230B102034FD0345A';

  aStream := TMemoryStream.Create;
  aLen   := Length(sndStr);
  aStream.WriteBuffer(Pointer(sndStr )^, aLen);
  
  if AThread.Connection.Connected then begin
    try
      AThread.Connection.OpenWriteBuffer;
      AThread.Connection.WriteStream(AStream);
      AThread.Connection.CloseWriteBuffer;
    except on E:exception do
      begin
        AThread.Connection.DisconnectSocket;
      end;
    end;
  end;

  aStream.Free;
end;
<!--CodeE-->