object CommInfo: TCommInfo
  Left = 203
  Top = 157
  BorderStyle = bsDialog
  Caption = 'Common information'
  ClientHeight = 262
  ClientWidth = 408
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 3
    Top = 3
    Width = 402
    Height = 226
    BevelOuter = bvLowered
    TabOrder = 0
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 400
      Height = 168
      TabOrder = 0
      object LT: TLabel
        Left = 8
        Top = 8
        Width = 81
        Height = 16
        Caption = 'Local time:'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object UT: TLabel
        Left = 8
        Top = 32
        Width = 129
        Height = 16
        Caption = 'Universal time (UT):'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object JD: TLabel
        Left = 8
        Top = 56
        Width = 105
        Height = 16
        Caption = 'Julian day (JD):'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object MJD: TLabel
        Left = 8
        Top = 80
        Width = 169
        Height = 16
        Caption = 'Modified Julian day (MJD):'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 8
        Top = 104
        Width = 185
        Height = 16
        Caption = 'Difference between Universal'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object ETUT: TLabel
        Left = 8
        Top = 120
        Width = 185
        Height = 16
        Caption = 'and Ephemeris time (ET-UT):'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LST: TLabel
        Left = 8
        Top = 144
        Width = 129
        Height = 16
        Caption = 'Local Sidereal time:'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LTv: TLabel
        Left = 184
        Top = 8
        Width = 7
        Height = 16
        Caption = '?'
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object UTv: TLabel
        Left = 184
        Top = 32
        Width = 7
        Height = 16
        Caption = '?'
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object JDv: TLabel
        Left = 240
        Top = 56
        Width = 7
        Height = 16
        Caption = '?'
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object MJDv: TLabel
        Left = 240
        Top = 80
        Width = 7
        Height = 16
        Caption = '?'
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object ETUTv: TLabel
        Left = 240
        Top = 120
        Width = 7
        Height = 16
        Caption = '?'
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LSTv: TLabel
        Left = 240
        Top = 144
        Width = 7
        Height = 16
        Caption = '?'
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
    end
    object Panel3: TPanel
      Left = 1
      Top = 169
      Width = 400
      Height = 56
      TabOrder = 1
      object Long: TLabel
        Left = 8
        Top = 8
        Width = 73
        Height = 16
        Caption = 'Longitude:'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Lat: TLabel
        Left = 8
        Top = 32
        Width = 57
        Height = 16
        Caption = 'Latitude:'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Longv: TLabel
        Left = 85
        Top = 8
        Width = 7
        Height = 16
        Caption = '?'
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Latv: TLabel
        Left = 85
        Top = 32
        Width = 7
        Height = 16
        Caption = '?'
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
    end
  end
  object CopyBtn: TButton
    Left = 108
    Top = 236
    Width = 81
    Height = 22
    Caption = '&Copy'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = CopyBtnClick
    OnKeyDown = FormKeyDown
  end
  object ExitBtn: TButton
    Left = 216
    Top = 236
    Width = 81
    Height = 22
    Caption = '&Ok'
    Default = True
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 1
    ParentFont = False
    TabOrder = 1
    OnKeyDown = FormKeyDown
  end
end