msgclient.dfm

使用delphi自带的控件

object dmeMsgClient: TdmeMsgClient
  OldCreateOrder = True
  Left = 310
  Top = 450
  Height = 332
  Width = 546
  object tcpMsgClient: TIdTCPClient
    MaxLineAction = maException
    ReadTimeout = 0
    BoundPort = 6666
    Port = 0
    Left = 152
    Top = 64
  end
end