object Form1: TForm1
  Left = 648
  Top = 132
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu, biMinimize, biHelp]
  BorderStyle = bsSingle
  Caption = 'OPC v3.0 � SM Programming 1999'
  ClientHeight = 163
  ClientWidth = 338
  Color = clSilver
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -16
  Font.Name = 'System'
  Font.Style = [fsBold]
  HelpFile = 'opc.hlp'
  Menu = MainMenu1
  PopupMenu = PopupMenu1
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = BitBtn7Click
  OnMouseMove = FormMouseMove
  PixelsPerInch = 96
  TextHeight = 16
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 338
    Height = 163
    Align = alClient
    Picture.Data = {<image000.bmp>}
    Stretch = True
    OnMouseMove = FormMouseMove
  end
  object Gauge1: TGauge
    Left = 274
    Top = 16
    Width = 17
    Height = 79
    Kind = gkVerticalBar
    ShowText = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -19
    Font.Name = 'System'
    Font.Style = [fsBold]
    ForeColor = clLime
    BackColor = clBlack
    ParentFont = False
    Progress = 100
  end
  object Bevel5: TBevel
    Left = 274
    Top = 16
    Width = 17
    Height = 79
  end
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 321
    Height = 1
    Shape = bsTopLine
  end
  object Label10: TLabel
    Left = 21
    Top = 18
    Width = 62
    Height = 15
    Caption = 'No. of Calls'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clAqua
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label11: TLabel
    Left = 21
    Top = 38
    Width = 105
    Height = 15
    Caption = 'Total exc. VAT/TAX'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clAqua
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label14: TLabel
    Left = 21
    Top = 58
    Width = 104
    Height = 15
    Caption = 'Total inc. VAT/TAX'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clAqua
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label15: TLabel
    Left = 21
    Top = 78
    Width = 100
    Height = 15
    Caption = 'Total Online Time'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clAqua
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label29: TLabel
    Left = 136
    Top = 38
    Width = 6
    Height = 15
    Caption = '�'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clAqua
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label30: TLabel
    Left = 136
    Top = 58
    Width = 6
    Height = 15
    Caption = '�'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clAqua
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 294
    Top = 18
    Width = 25
    Height = 78
    Alignment = taCenter
    Caption = 'O P C'
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -24
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    WordWrap = True
    OnMouseMove = FormMouseMove
  end
  object Bevel2: TBevel
    Left = 8
    Top = 103
    Width = 321
    Height = 1
    Shape = bsBottomLine
  end
  object Bevel3: TBevel
    Left = 8
    Top = 8
    Width = 1
    Height = 96
    Shape = bsLeftLine
  end
  object Bevel4: TBevel
    Left = 328
    Top = 8
    Width = 1
    Height = 96
    Shape = bsRightLine
  end
  object Label3: TLabel
    Left = 278
    Top = 24
    Width = 10
    Height = 64
    Caption = 'N o n e'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    Visible = False
    WordWrap = True
  end
  object BitBtn1: TBitBtn
    Left = 8
    Top = 134
    Width = 80
    Height = 22
    HelpContext = 1003
    Caption = '&Start Timer'
    Default = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = BitBtn1Click
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 184
    Top = 134
    Width = 80
    Height = 22
    Caption = 'S&top Timer'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn2Click
  end
  object BitBtn7: TBitBtn
    Left = 272
    Top = 134
    Width = 57
    Height = 22
    Caption = '&Quit'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn7Click
  end
  object BitBtn8: TBitBtn
    Left = 96
    Top = 134
    Width = 80
    Height = 22
    Caption = '&Cancel Timer'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 1
    OnClick = BitBtn8Click
  end
  object Edit4: TEdit
    Left = 144
    Top = 36
    Width = 121
    Height = 19
    Cursor = crArrow
    AutoSize = False
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 5
  end
  object Edit5: TEdit
    Left = 144
    Top = 16
    Width = 121
    Height = 19
    Cursor = crArrow
    AutoSize = False
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 4
  end
  object Edit6: TEdit
    Left = 144
    Top = 56
    Width = 121
    Height = 19
    Cursor = crArrow
    AutoSize = False
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 6
  end
  object Edit11: TEdit
    Left = 144
    Top = 76
    Width = 121
    Height = 19
    Cursor = crArrow
    AutoSize = False
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 7
  end
  object MediaPlayer1: TMediaPlayer
    Left = 96
    Top = 360
    Width = 253
    Height = 30
    AutoOpen = True
    DeviceType = dtWaveAudio
    Visible = False
    TabOrder = 8
  end
  object A: TPanel
    Left = 8
    Top = 110
    Width = 321
    Height = 17
    BevelOuter = bvLowered
    Color = clBlack
    TabOrder = 9
    OnClick = showsmall
    object Label1: TLabel
      Left = 226
      Top = 0
      Width = 3
      Height = 15
      Font.Charset = ANSI_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label6: TLabel
      Left = 8
      Top = 32
      Width = 72
      Height = 15
      Caption = 'Time online: '
      Font.Charset = ANSI_CHARSET
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label8: TLabel
      Left = 153
      Top = 32
      Width = 70
      Height = 15
      Caption = 'Online cost :'
      Font.Charset = ANSI_CHARSET
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label12: TLabel
      Left = 17
      Top = 0
      Width = 59
      Height = 15
      Caption = 'Time now :'
      Font.Charset = ANSI_CHARSET
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label13: TLabel
      Left = 144
      Top = 0
      Width = 77
      Height = 15
      Caption = 'Cost per min :'
      Font.Charset = ANSI_CHARSET
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label17: TLabel
      Left = 166
      Top = 16
      Width = 56
      Height = 15
      Caption = 'Discount :'
      Font.Charset = ANSI_CHARSET
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label7: TLabel
      Left = 80
      Top = 0
      Width = 3
      Height = 15
      Font.Charset = ANSI_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label9: TLabel
      Left = 80
      Top = 16
      Width = 3
      Height = 15
      Font.Charset = ANSI_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label19: TLabel
      Left = 80
      Top = 32
      Width = 3
      Height = 15
      Font.Charset = ANSI_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label20: TLabel
      Left = 236
      Top = 0
      Width = 3
      Height = 15
      Font.Charset = ANSI_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label21: TLabel
      Left = 226
      Top = 16
      Width = 3
      Height = 15
      Font.Charset = ANSI_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label22: TLabel
      Left = 236
      Top = 32
      Width = 3
      Height = 15
      Font.Charset = ANSI_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label18: TLabel
      Left = 14
      Top = 16
      Width = 62
      Height = 15
      Caption = 'Start time :'
      Font.Charset = ANSI_CHARSET
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label23: TLabel
      Left = 226
      Top = 32
      Width = 3
      Height = 15
      Font.Charset = ANSI_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label24: TLabel
      Left = 263
      Top = 16
      Width = 3
      Height = 15
      Font.Charset = ANSI_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
  end
  object Timer7: TTimer
    Enabled = False
    Interval = 1
    OnTimer = Timer7Timer
    Left = 48
    Top = 368
  end
  object MainMenu1: TMainMenu
    Left = 96
    Top = 296
    object MenuBar: TMenuItem
      Caption = '&Program'
      Checked = True
      object Options1: TMenuItem
        Caption = '&Options'
        ShortCut = 16463
        OnClick = Options1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object DefineDailyCallRates1: TMenuItem
        Caption = '&Define Daily Call Rates  '
        ShortCut = 16452
        OnClick = BitBtn3Click
      end
      object BillingOptions2: TMenuItem
        Caption = '&Billing Details'
        ShortCut = 16450
        OnClick = BillingOptions2Click
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object Close1: TMenuItem
        Caption = '&Quit'
        ShortCut = 16465
        OnClick = BitBtn7Click
      end
    end
    object Logs1: TMenuItem
      Caption = '&Logs/Reports'
      object ViewLogFile3: TMenuItem
        Caption = 'View &Log File'
        ShortCut = 16460
        OnClick = ViewLogfile1Click
      end
      object ViewReportFile3: TMenuItem
        Caption = 'View &Report File'
        ShortCut = 16466
        OnClick = ViewReportFile1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Report1: TMenuItem
        Caption = '&General Report Charts'
        ShortCut = 16455
        OnClick = Report1Click
      end
      object SummaryReport1: TMenuItem
        Caption = '&Summary Report'
        ShortCut = 16467
        OnClick = SummaryReport1Click
      end
    end
    object About3: TMenuItem
      Caption = '&Help'
      object Help3: TMenuItem
        Caption = '&Help'
        ShortCut = 16456
        OnClick = Help1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Regsiter1: TMenuItem
        Caption = 'R&egister'
        ShortCut = 16453
        OnClick = Regsiter1Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object About4: TMenuItem
        Caption = '&About'
        ShortCut = 16449
        OnClick = menuloadedaboutbox
      end
    end
    object RateFile1: TMenuItem
      Caption = 'Rate &File'
      ShortCut = 16454
      OnClick = RateFile1Click
      object RateFiles1: TMenuItem
        Caption = 'Ra&te Files'
        ShortCut = 16468
        Visible = False
        OnClick = RateFiles1Click
      end
      object N7: TMenuItem
        Caption = '-'
        Visible = False
      end
      object rate1: TMenuItem
        Visible = False
        OnClick = find_rate
      end
      object rate2: TMenuItem
        Visible = False
        OnClick = find_rate
      end
      object rate3: TMenuItem
        Visible = False
        OnClick = find_rate
      end
      object rate4: TMenuItem
        Visible = False
        OnClick = find_rate
      end
      object rate5: TMenuItem
        Visible = False
        OnClick = find_rate
      end
      object rate6: TMenuItem
        Visible = False
        OnClick = find_rate
      end
      object rate7: TMenuItem
        Visible = False
        OnClick = find_rate
      end
      object rate8: TMenuItem
        Visible = False
        OnClick = find_rate
      end
      object rate9: TMenuItem
        Visible = False
        OnClick = find_rate
      end
      object rate10: TMenuItem
        Visible = False
        OnClick = find_rate
      end
    end
    object Size1: TMenuItem
      Caption = 'Small &Mode'
      ShortCut = 16461
      OnClick = showsmall
    end
  end
  object PopupMenu1: TPopupMenu
    AutoPopup = False
    Left = 128
    Top = 328
    object popupmenu: TMenuItem
      Caption = '&Options'
      ShortCut = 16463
      OnClick = Options1Click
    end
    object bye1: TMenuItem
      Caption = '-'
    end
    object DefineDailyCallRates2: TMenuItem
      Caption = '&Define Daily Call Rates'
      ShortCut = 16452
      OnClick = BitBtn3Click
    end
    object BillingOptions1: TMenuItem
      Caption = '&Billing Details'
      ShortCut = 16450
      OnClick = BillingOptions2Click
    end
    object N10: TMenuItem
      Caption = '-'
    end
    object ViewLogFile2: TMenuItem
      Caption = 'View &Log File'
      ShortCut = 16460
      OnClick = ViewLogfile1Click
    end
    object ViewReportFile2: TMenuItem
      Caption = 'View &Report File'
      ShortCut = 16466
      OnClick = ViewReportFile1Click
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object About2: TMenuItem
      Caption = '&About'
      ShortCut = 16449
      OnClick = menuloadedaboutbox
    end
    object Help2: TMenuItem
      Caption = '&Help'
      ShortCut = 16456
      OnClick = Help1Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object Close2: TMenuItem
      Caption = '&Quit'
      ShortCut = 16465
      OnClick = BitBtn7Click
    end
  end
  object TrayIcon2: TTrayIcon
    Active = False
    ShowDesigning = False
    Icon.Data = {<image001.ico>}
    ToolTip = 'DblClick to start timer, Right Click to show/hide OPC'
    OnDblClick = Start_Stop
    OnRightClick = TrayIcon2RightClick
    Left = 72
    Top = 320
  end
  object Timer1: TTimer
    Interval = 2000
    OnTimer = Timer1Timer
    Left = 16
    Top = 320
  end
  object Timer2: TTimer
    OnTimer = Timer2Timer
    Left = 96
    Top = 344
  end
  object Timer3: TTimer
    OnTimer = Timer3Timer
    Left = 16
    Top = 344
  end
  object Timer4: TTimer
    Enabled = False
    OnTimer = Timer4Timer
    Left = 16
    Top = 368
  end
  object FnugryCloneControl1: TFnugryCloneControl
    Action = clcMessage
    TerminationStyle = tsAppTerminate
    MaxInstance = 1
    Left = 48
    Top = 328
  end
  object Timer10: TTimer
    Enabled = False
    OnTimer = Timer10Timer
    Left = 80
    Top = 344
  end
  object Timer9: TTimer
    Enabled = False
    Interval = 2000
    OnTimer = cli_start
    Left = 208
    Top = 312
  end
  object scroller_time: TTimer
    Enabled = False
    Interval = 200
    OnTimer = scroll
    Left = 256
    Top = 312
  end
  object autosave_timer: TTimer
    Enabled = False
    Interval = 0
    OnTimer = autosave
    Left = 32
    Top = 288
  end
  object carrier_timer: TTimer
    Enabled = False
    Interval = 3000
    OnTimer = carrier_timerTimer
    Left = 176
    Top = 312
  end
end