unit1.dfm

provided a modified version of this example that is designed to be more user friendly. It is coded i

object Form1: TForm1
  Left = 196
  Top = 109
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'WinLIRC Demo (Modification 2005)'
  ClientHeight = 511
  ClientWidth = 419
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Button3: TButton
    Left = 356
    Top = 458
    Width = 55
    Height = 44
    Caption = 'Exit'
    TabOrder = 3
    OnClick = Button3Click
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 453
    Width = 338
    Height = 49
    TabOrder = 0
    object Label5: TLabel
      Left = 11
      Top = 28
      Width = 316
      Height = 13
      Caption = 'WinLIRC Demo (Modification 2005) (c) 2005 WavE ([e-mail])'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 11
      Top = 12
      Width = 188
      Height = 13
      Caption = 'WinLIRC Demo (c) 2002 Dominik Bruhn'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 5
    Width = 403
    Height = 152
    Caption = ' Connection: '
    TabOrder = 1
    object Label16: TLabel
      Left = 11
      Top = 22
      Width = 125
      Height = 13
      Caption = 'IP address (eg. 127.0.0.1):'
    end
    object Label18: TLabel
      Left = 11
      Top = 66
      Width = 93
      Height = 13
      Caption = 'Port (default: 8765):'
    end
    object Label3: TLabel
      Left = 160
      Top = 22
      Width = 88
      Height = 13
      Caption = 'Connection status:'
    end
    object Button1: TButton
      Left = 11
      Top = 114
      Width = 65
      Height = 25
      Caption = 'Start'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 83
      Top = 114
      Width = 65
      Height = 25
      Caption = 'Stop'
      TabOrder = 1
      OnClick = Button2Click
    end
    object Edit1: TEdit
      Left = 11
      Top = 38
      Width = 137
      Height = 21
      TabOrder = 2
      Text = '127.0.0.1'
    end
    object Edit2: TEdit
      Left = 11
      Top = 82
      Width = 137
      Height = 21
      TabOrder = 3
      Text = '8765'
    end
    object Memo1: TMemo
      Left = 160
      Top = 38
      Width = 231
      Height = 101
      TabStop = False
      ParentColor = True
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 4
    end
    object Panel1: TPanel
      Left = 372
      Top = 16
      Width = 18
      Height = 18
      BevelInner = bvLowered
      TabOrder = 5
    end
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 162
    Width = 403
    Height = 286
    Caption = ' Received signals: '
    TabOrder = 2
    object Label8: TLabel
      Left = 11
      Top = 132
      Width = 188
      Height = 13
      Caption = 'Key code of the pressed button (in hex):'
    end
    object Label9: TLabel
      Left = 11
      Top = 170
      Width = 105
      Height = 13
      Caption = 'Repeat count (in hex):'
    end
    object Label10: TLabel
      Left = 11
      Top = 208
      Width = 278
      Height = 13
      Caption = 'Name of the button that was hit (from the configuration file):'
    end
    object Label11: TLabel
      Left = 11
      Top = 246
      Width = 351
      Height = 13
      Caption = 
        'Name of the remote control that sent this signal (from the confi' +
        'guration file):'
    end
    object Label12: TLabel
      Left = 11
      Top = 148
      Width = 13
      Height = 13
      Caption = '...'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label13: TLabel
      Left = 11
      Top = 186
      Width = 13
      Height = 13
      Caption = '...'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label14: TLabel
      Left = 11
      Top = 224
      Width = 13
      Height = 13
      Caption = '...'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label15: TLabel
      Left = 11
      Top = 262
      Width = 13
      Height = 13
      Caption = '...'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label1: TLabel
      Left = 11
      Top = 106
      Width = 53
      Height = 13
      Caption = 'Last signal:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsUnderline]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 75
      Top = 106
      Width = 13
      Height = 13
      Caption = '...'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Memo2: TMemo
      Left = 11
      Top = 22
      Width = 380
      Height = 75
      TabStop = False
      ParentColor = True
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object Button4: TButton
      Left = 334
      Top = 102
      Width = 57
      Height = 25
      Caption = 'Clear'
      TabOrder = 1
      OnClick = Button4Click
    end
  end
  object cs: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnLookup = csLookup
    OnConnecting = csConnecting
    OnConnect = csConnect
    OnDisconnect = csDisconnect
    OnRead = csRead
    OnError = csError
    Left = 289
    Top = 14
  end
end