object frmGSMTest: TfrmGSMTest
  Left = 196
  Top = 107
  Width = 402
  Height = 337
  Caption = 'GSM At command test'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 256
    Top = 168
    Width = 112
    Height = 39
    Caption = '     code write by'#13#10'       netbirdfly'#13#10'netbirdfly@vip.sina.com'
  end
  object Button1: TButton
    Left = 280
    Top = 88
    Width = 75
    Height = 25
    Caption = 'Connect'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 280
    Top = 120
    Width = 75
    Height = 25
    Caption = 'Command'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Memo1: TMemo
    Left = 8
    Top = 8
    Width = 225
    Height = 297
    Lines.Strings = (
      'wait for command')
    TabOrder = 2
  end
  object cbxCommand: TComboBox
    Left = 248
    Top = 24
    Width = 137
    Height = 21
    ItemHeight = 13
    TabOrder = 3
    Text = 'AT+CGMI'
    Items.Strings = (
      'AT+CGMI'
      'AT+CGMM'
      'AT+CGMR'
      'AT+CGSN'
      'AT+CSCS?'
      'AT+CIMI'
      'AT+CCLK?')
  end
  object WIrSocket: TWIrCOMMSocket
    LineMode = False
    LineLimit = 65536
    LineEnd = #13#10
    LineEcho = False
    LineEdit = False
    MultiThreaded = False
    ComponentOptions = []
    OnDataAvailable = WIrSocketDataAvailable
    FlushTimeout = 60
    SendFlags = wsSendNormal
    LingerOnOff = wsLingerOn
    LingerTimeout = 0
    Left = 168
    Top = 144
  end
end