object EditSessionForm: TEditSessionForm Left = 462 Top = 376 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Edit Session' ClientHeight = 292 ClientWidth = 298 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Button1: TButton Left = 132 Top = 256 Width = 75 Height = 25 Caption = '&OK' TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 218 Top = 256 Width = 75 Height = 25 Caption = '&Cancel' TabOrder = 1 OnClick = Button2Click end object GroupBox1: TGroupBox Left = 8 Top = 4 Width = 285 Height = 245 Caption = 'Session Information ' TabOrder = 2 object Label1: TLabel Left = 12 Top = 92 Width = 44 Height = 13 Caption = 'Start time' end object Label2: TLabel Left = 12 Top = 120 Width = 41 Height = 13 Caption = 'End time' end object Label5: TLabel Left = 148 Top = 92 Width = 119 Height = 13 Caption = '(Hours:Minutes:Seconds)' end object Label6: TLabel Left = 148 Top = 120 Width = 119 Height = 13 Caption = '(Hours:Minutes:Seconds)' end object Label3: TLabel Left = 12 Top = 164 Width = 56 Height = 13 Caption = 'Time Online' end object Label7: TLabel Left = 148 Top = 164 Width = 119 Height = 13 Caption = '(Hours:Minutes:Seconds)' end object Label4: TLabel Left = 12 Top = 212 Width = 61 Height = 13 Caption = 'Session Cost' end object Image1: TImage Left = 12 Top = 20 Width = 32 Height = 32 AutoSize = True Picture.Data = {} end object Label8: TLabel Left = 52 Top = 20 Width = 225 Height = 53 AutoSize = False Caption = 'To change the online time for this session edit the start and en' + 'd times. You can manually enter the session cost or calculate it' + ' based on the tarrif for that timezone.' WordWrap = True end object StartTimeMaskEdit: TMaskEdit Left = 84 Top = 88 Width = 49 Height = 21 EditMask = '!90:00:00;1;_' MaxLength = 8 TabOrder = 0 Text = ' : : ' OnChange = StartTimeMaskEditChange end object EndTimeMaskEdit: TMaskEdit Left = 84 Top = 116 Width = 49 Height = 21 EditMask = '!90:00:00;1;_' MaxLength = 8 TabOrder = 1 Text = ' : : ' OnChange = EndTimeMaskEditChange end object TimeOnlineMaskEdit: TMaskEdit Left = 84 Top = 160 Width = 49 Height = 21 Enabled = False EditMask = '!90:00:00;1;_' MaxLength = 8 ReadOnly = True TabOrder = 2 Text = ' : : ' end object CostEdit: TEdit Left = 83 Top = 208 Width = 59 Height = 21 TabOrder = 3 OnChange = CostEditChange OnClick = CostEditClick OnExit = CostEditExit end object Button3: TButton Left = 200 Top = 208 Width = 75 Height = 25 Caption = '&Calculate' TabOrder = 4 OnClick = Button3Click end end end