unit1.lfm

object Form1: TForm1
  Left = 363
  Height = 430
  Top = 117
  Width = 796
  Caption = 'Form1'
  ClientHeight = 430
  ClientWidth = 796
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object Label1: TLabel
    Left = 8
    Height = 16
    Top = 16
    Width = 12
    Caption = 'IP'
  end
  object Edit1: TEdit
    Left = 64
    Height = 26
    Top = 6
    Width = 168
    TabOrder = 0
    Text = 'Edit1'
  end
  object Label2: TLabel
    Left = 8
    Height = 16
    Top = 40
    Width = 26
    Caption = 'Port'
  end
  object Edit2: TEdit
    Left = 64
    Height = 26
    Top = 32
    Width = 168
    TabOrder = 1
    Text = 'Edit2'
  end
  object Button1: TButton
    Left = 240
    Height = 50
    Top = 6
    Width = 75
    Caption = 'Connect'
    OnClick = Button1Click
    TabOrder = 2
  end
  object Button2: TButton
    Left = 8
    Height = 25
    Top = 64
    Width = 307
    Caption = 'Send MQTT connect'
    OnClick = Button2Click
    TabOrder = 3
  end
  object Memo1: TMemo
    Left = 320
    Height = 385
    Top = 8
    Width = 470
    Anchors = [akTop, akLeft, akRight, akBottom]
    Font.Name = 'Courier New'
    Lines.Strings = (
      'Memo1'
    )
    ParentFont = False
    ScrollBars = ssAutoBoth
    TabOrder = 4
    WordWrap = False
  end
  object Button3: TButton
    Left = 320
    Height = 25
    Top = 400
    Width = 75
    Anchors = [akLeft, akBottom]
    Caption = 'Clear'
    OnClick = Button3Click
    TabOrder = 5
  end
  object Button4: TButton
    Left = 8
    Height = 25
    Top = 288
    Width = 307
    Caption = 'Publish'
    OnClick = Button4Click
    TabOrder = 6
  end
  object Button5: TButton
    Left = 8
    Height = 25
    Top = 368
    Width = 307
    Caption = 'Disconnect'
    OnClick = Button5Click
    TabOrder = 7
  end
  object Label3: TLabel
    Left = 8
    Height = 16
    Top = 202
    Width = 68
    Caption = 'Topic name'
  end
  object Edit3: TEdit
    Left = 88
    Height = 26
    Top = 192
    Width = 227
    TabOrder = 8
    Text = 'Edit3'
  end
  object Label4: TLabel
    Left = 8
    Height = 16
    Top = 234
    Width = 55
    Caption = 'Packet Id'
  end
  object Edit4: TEdit
    Left = 88
    Height = 26
    Top = 224
    Width = 80
    TabOrder = 9
    Text = 'Edit4'
  end
  object Label5: TLabel
    Left = 8
    Height = 16
    Top = 266
    Width = 49
    Caption = 'Payload'
  end
  object Edit5: TEdit
    Left = 88
    Height = 26
    Top = 256
    Width = 227
    TabOrder = 10
    Text = 'Edit5'
  end
  object Button6: TButton
    Left = 8
    Height = 25
    Top = 400
    Width = 307
    Caption = 'Close'
    OnClick = Button6Click
    TabOrder = 11
  end
  object CheckBox1: TCheckBox
    Left = 88
    Height = 22
    Top = 102
    Width = 78
    Caption = 'DUP flag'
    TabOrder = 12
  end
  object RadioGroup1: TRadioGroup
    Left = 88
    Height = 33
    Top = 128
    Width = 227
    AutoFill = True
    Caption = ' QoS '
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 3
    ClientHeight = 16
    ClientWidth = 225
    Columns = 3
    ItemIndex = 1
    Items.Strings = (
      '0'
      '1'
      '2'
    )
    TabOrder = 13
  end
  object CheckBox2: TCheckBox
    Left = 88
    Height = 22
    Top = 168
    Width = 62
    Caption = 'Retain'
    TabOrder = 14
  end
  object Button7: TButton
    Left = 8
    Height = 25
    Top = 328
    Width = 307
    Caption = 'Send Ping'
    OnClick = Button7Click
    TabOrder = 15
  end
  object CheckBox3: TCheckBox
    Left = 408
    Height = 22
    Top = 400
    Width = 141
    Anchors = [akLeft, akBottom]
    Caption = 'Include timestamps'
    TabOrder = 16
  end
  object LTCPComponent1: TLTCPComponent
    Port = 0
    OnReceive = LTCPComponent1Receive
    OnError = LTCPComponent1Error
    OnDisconnect = LTCPComponent1Disconnect
    Timeout = 0
    ReuseAddress = False
    Left = 544
    Top = 184
  end
end