Zodiac Super OZ/MEDIADEPOT.ISO/FILES/22/PWRPGP32.ZIP/POWERPGP.EXE/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1996-06-06 | 36KB | 1,135 lines

object Form1: TForm1
  Left = 239
  Top = 152
  Width = 629
  Height = 439
  Caption = 'PowerPGP  Message Encryptor (32-bit)'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 16
  object Bevel1: TBevel
    Left = 0
    Top = 24
    Width = 621
    Height = 349
    Align = alClient
    Shape = bsFrame
    Style = bsRaised
  end
  object Label1: TLabel
    Left = 18
    Top = 44
    Width = 195
    Height = 19
    AutoSize = False
    Caption = 'Public Key To Use (To:)'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 18
    Top = 84
    Width = 163
    Height = 17
    AutoSize = False
    Caption = 'Message:'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Image1: TImage
    Left = 568
    Top = 28
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image001.ico>}
  end
  object Label4: TLabel
    Left = 418
    Top = 28
    Width = 150
    Height = 33
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Power PGP'
    Font.Color = clGray
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label5: TLabel
    Left = 414
    Top = 26
    Width = 150
    Height = 33
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Power PGP'
    Font.Color = clPurple
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Image2: TImage
    Left = 392
    Top = 28
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image002.ico>}
  end
  object Panel1: TPanel
    Left = 32
    Top = 288
    Width = 558
    Height = 68
    BevelOuter = bvLowered
    BevelWidth = 4
    TabOrder = 1
    object BitBtn5: TBitBtn
      Left = 444
      Top = 34
      Width = 110
      Height = 30
      Hint = 'Exit the program'
      Caption = 'E&xit'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 9
      OnClick = BitBtn5Click
      Kind = bkClose
      Style = bsNew
    end
    object BitBtn3: TBitBtn
      Left = 224
      Top = 4
      Width = 110
      Height = 30
      Hint = 'Cut message to clipboard'
      Caption = '&Cut Message'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = CutMessageToClipboard1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333FF3333333333333003333333333333377F33333333333307
        733333FFF333337773333C003333307733333777FF333777FFFFC0CC03330770
        000077777FF377777777C033C03077FFFFF077FF77F777FFFFF7CC00000F7777
        777077777777777777773CCCCC00000000003777777777777777333330030FFF
        FFF03333F77F7F3FF3F7333C0C030F00F0F03337777F7F77373733C03C030FFF
        FFF03377F77F7F3F333733C03C030F0FFFF03377F7737F733FF733C000330FFF
        0000337777F37F3F7777333CCC330F0F0FF0333777337F737F37333333330FFF
        0F03333333337FFF7F7333333333000000333333333377777733}
      NumGlyphs = 2
      Style = bsNew
    end
    object BitBtn2: TBitBtn
      Left = 114
      Top = 4
      Width = 109
      Height = 30
      Hint = 'Decrypt current message'
      Caption = '&Decrypt'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = BitBtn2Click
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5000555555555555577755555555555550B0555555555555F7F7555555555550
        00B05555555555577757555555555550B3B05555555555F7F557555555555000
        3B0555555555577755755555555500B3B0555555555577555755555555550B3B
        055555FFFF5F7F5575555700050003B05555577775777557555570BBB00B3B05
        555577555775557555550BBBBBB3B05555557F555555575555550BBBBBBB0555
        55557F55FF557F5555550BB003BB075555557F577F5575F5555577B003BBB055
        555575F7755557F5555550BB33BBB0555555575F555557F555555507BBBB0755
        55555575FFFF77555555555700007555555555577777755555550000}
      NumGlyphs = 2
      Style = bsNew
    end
    object BitBtn1: TBitBtn
      Left = 4
      Top = 4
      Width = 109
      Height = 30
      Hint = 'Encrypt current message'
      Caption = '&Encrypt'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = BitBtn1Click
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
        0EEE333377777777777733330FF00FBFB0EE33337F37733F377733330F0BFB0B
        FB0E33337F73FF73337733330FF000BFBFB033337F377733333733330FFF0BFB
        FBF033337FFF733F333733300000BF0FBFB03FF77777F3733F37000FBFB0F0FB
        0BF077733FF7F7FF7337E0FB00000000BF0077F377777777F377E0BFBFBFBFB0
        F0F077F3333FFFF7F737E0FBFB0000000FF077F3337777777337E0BFBFBFBFB0
        FFF077F3333FFFF73FF7E0FBFB00000F000077FF337777737777E00FBFBFB0FF
        0FF07773FFFFF7337F37003000000FFF0F037737777773337F7333330FFFFFFF
        003333337FFFFFFF7733333300000000033333337777777773330000}
      NumGlyphs = 2
      Style = bsNew
    end
    object BitBtn4: TBitBtn
      Left = 334
      Top = 4
      Width = 110
      Height = 30
      Hint = 'Replace message with contents in clipboard'
      Caption = 'Paste &Message'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = PasteMessageFromClipboard1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF
        FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF
        FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0
        FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0
        0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039
        9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999
        9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039
        99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999
        93337777FF777777733370000000073333333777777773333333}
      NumGlyphs = 2
      Style = bsNew
    end
    object BitBtn6: TBitBtn
      Left = 4
      Top = 34
      Width = 109
      Height = 30
      Hint = 'Clear the message window'
      Caption = 'Clea&r'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnClick = ClearMessage1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
        993337777F777F3377F3393999707333993337F77737333337FF993399933333
        399377F3777FF333377F993339903333399377F33737FF33377F993333707333
        399377F333377FF3377F993333101933399377F333777FFF377F993333000993
        399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
        99333773FF777F777733339993707339933333773FF7FFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      NumGlyphs = 2
      Style = bsNew
    end
    object BitBtn7: TBitBtn
      Left = 114
      Top = 34
      Width = 109
      Height = 30
      Hint = 'Quote Text'
      Caption = '&Quote'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = BitBtn7Click
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333FFF333333333333000333333333
        3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
        3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
        0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
        BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
        33337777773FF733333333333300033333333333337773333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333333333333333333333333333333333330000}
      NumGlyphs = 2
      Style = bsNew
    end
    object BitBtn8: TBitBtn
      Left = 224
      Top = 34
      Width = 110
      Height = 30
      Hint = 'CLEARSIG Message'
      Caption = '&Sign'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnClick = BitBtn8Click
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        59905555555555555777555555555555555555555555555555550000}
      NumGlyphs = 2
      Style = bsNew
    end
    object BitBtn9: TBitBtn
      Left = 334
      Top = 34
      Width = 110
      Height = 30
      Hint = 'Sign and Encrypt Message'
      Caption = 'Sign/Encrypt'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 8
      OnClick = BitBtn9Click
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555FFFFF555555555544C4C5555555555F777775FF5555554C444C444
        5555555775FF55775F55554C4334444445555575577F55557FF554C4C334C4C4
        335557F5577FF55577F554CCC3334444335557555777F555775FCCCCC333CCC4
        C4457F55F777F555557F4CC33333CCC444C57F577777F5F5557FC4333333C3C4
        CCC57F777777F7FF557F4CC33333333C4C457F577777777F557FCCC33CC4333C
        C4C575F7755F777FF5755CCCCC3333334C5557F5FF777777F7F554C333333333
        CC55575777777777F755553333CC3C33C555557777557577755555533CC4C4CC
        5555555775FFFF77555555555C4CCC55555555555777775555550000}
      NumGlyphs = 2
      Style = bsNew
    end
    object BitBtn11: TBitBtn
      Left = 444
      Top = 4
      Width = 110
      Height = 30
      Caption = '&Paste/Decrypt'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = BitBtn11Click
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00370777033333
        3330337F3F7F33333F3787070003333707303F737773333373F7007703333330
        700077337F3333373777887007333337007733F773F333337733700070333333
        077037773733333F7F37703707333300080737F373333377737F003333333307
        78087733FFF3337FFF7F33300033330008073F3777F33F777F73073070370733
        078073F7F7FF73F37FF7700070007037007837773777F73377FF007777700730
        70007733FFF77F37377707700077033707307F37773F7FFF7337080777070003
        3330737F3F7F777F333778080707770333333F7F737F3F7F3333080787070003
        33337F73FF7377733333078000770333333373377733733333330000}
      NumGlyphs = 2
      Style = bsNew
    end
  end
  object Memo1: TMemo
    Left = 30
    Top = 160
    Width = 299
    Height = 33
    TabOrder = 2
    Visible = False
    WordWrap = False
  end
  object Mailto: TComboBox
    Left = 18
    Top = 64
    Width = 583
    Height = 21
    DropDownCount = 20
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ItemHeight = 13
    ParentFont = False
    Sorted = True
    TabOrder = 0
  end
  object Mailtoold2: TEdit
    Left = 28
    Top = 134
    Width = 371
    Height = 21
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    Visible = False
  end
  object Memo2: TMemo
    Left = 30
    Top = 110
    Width = 523
    Height = 45
    Lines.Strings = (
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      '')
    TabOrder = 4
    Visible = False
    WordWrap = False
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 373
    Width = 621
    Height = 20
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Panels = <
      item
        Text = ' Standby'
        Width = 200
      end
      item
        Alignment = taCenter
        Text =
          'PowerPGP 1.34.95 Copyright �1995-1996 Joe Feenin All Rights Rese' +
          'rved'
        Width = 50
      end>
    ParentFont = False
    SimplePanel = False
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 621
    Height = 24
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 6
    object SpeedButton1: TSpeedButton
      Left = 1
      Top = 1
      Width = 22
      Height = 22
      Hint = 'Open Saved Message'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555555555555555555555555555555555555555555555555555555555
        555555555555555555555555555555555555555FFFFFFFFFF555550000000000
        55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
        B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
        000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
        555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
        55555575FFF75555555555700007555555555557777555555555555555555555
        55555555555555555555555555555555555555555555555555550000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = OpenMessage1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 23
      Top = 1
      Width = 22
      Height = 22
      Hint = 'Save Message'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
        00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
        00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
        00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
        0003737FFFFFFFFF7F73300999999999003337777777777777330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SaveMessage1Click
    end
    object SpeedButton3: TSpeedButton
      Left = 67
      Top = 1
      Width = 22
      Height = 22
      Hint = 'Edit Signature'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF7733333033000000033333373377777773330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = Signature1Click
    end
    object SpeedButton4: TSpeedButton
      Left = 89
      Top = 1
      Width = 22
      Height = 22
      Hint = 'ASCII Armor a File'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000003
        333333333F777773FF333333008888800333333377333F3773F3333077870787
        7033333733337F33373F3308888707888803337F33337F33337F330777880887
        7703337F33337FF3337F3308888000888803337F333777F3337F330777700077
        7703337F33377733337F33088888888888033373FFFFFFFFFF73333000000000
        00333337777777777733333308033308033333337F7F337F7F33333308033308
        033333337F7F337F7F33333308033308033333337F73FF737F33333377800087
        7333333373F77733733333333088888033333333373FFFF73333333333000003
        33333333337777733333333333333333333333333333333333330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = ASCIIARmorEncryptaFile1Click
    end
    object SpeedButton5: TSpeedButton
      Left = 111
      Top = 1
      Width = 22
      Height = 22
      Hint = 'Decrypt an ASCII Armored File'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000003
        333333333F777773FF333333008888800333333377333F3773F3333077870787
        7033333733337F33373F3308888707888803337F33337F33337F330777880887
        7703337F33337FF3337F3308888000888803337F333777F3337F330777700077
        7703337F33377733337FB3088888888888033373FFFFFFFFFF733B3000000000
        0033333777777777773333BBBB3333080333333333F3337F7F33BBBB707BB308
        03333333373F337F7F3333BB08033308033333337F7F337F7F333B3B08033308
        033333337F73FF737F33B33B778000877333333373F777337333333B30888880
        33333333373FFFF73333333B33000003333333333377777333330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = DecryptAnASCIIArmoredFile1Click
    end
    object SpeedButton6: TSpeedButton
      Left = 155
      Top = 1
      Width = 22
      Height = 22
      Hint = 'Erase Stored Pass Phrase'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        3333333777333777FF3333993333339993333377FF3333377FF3399993333339
        993337777FF3333377F3393999333333993337F777FF333337FF993399933333
        399377F3777FF333377F993339993333399377F33777FF33377F993333999333
        399377F333777FF3377F993333399933399377F3333777FF377F993333339993
        399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
        99333773FF3333777733339993333339933333773FFFFFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = ClearStoredPassPhrase1Click
    end
    object SpeedButton7: TSpeedButton
      Left = 133
      Top = 1
      Width = 22
      Height = 22
      Hint = 'Set Display Font'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333FFF33FFFFF33333300033000
        00333337773377777333333330333300033333337FF33777F333333330733300
        0333333377FFF777F33333333700000073333333777777773333333333033000
        3333333337FF777F333333333307300033333333377F777F3333333333703007
        33333333377F7773333333333330000333333333337777F33333333333300003
        33333333337777F3333333333337007333333333337777333333333333330033
        3333333333377333333333333333033333333333333733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = Font1Click
    end
    object SpeedButton8: TSpeedButton
      Left = 45
      Top = 1
      Width = 22
      Height = 22
      Hint = 'Print Message'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003377777777777777308888888888888807F33333333333337088888888888
        88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
        8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
        8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
        33333337FFFF77333333333000000333333333377777733333330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = Print1Click
    end
  end
  object Memo3: TMemo
    Left = 48
    Top = 124
    Width = 531
    Height = 141
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Terminal'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    Visible = False
  end
  object MailMsg: TMemo
    Left = 18
    Top = 100
    Width = 583
    Height = 175
    PopupMenu = PopupMenu1
    ScrollBars = ssVertical
    TabOrder = 8
  end
  object Panel3: TPanel
    Left = 20
    Top = 100
    Width = 579
    Height = 173
    BevelInner = bvLowered
    BevelWidth = 2
    BorderWidth = 1
    Color = clSilver
    TabOrder = 9
    Visible = False
    object Image3: TImage
      Left = 5
      Top = 35
      Width = 263
      Height = 133
      Align = alClient
      Picture.Data = {<image003.bmp>}
      Stretch = True
    end
    object Label3: TLabel
      Left = 5
      Top = 5
      Width = 569
      Height = 30
      Align = alTop
      Alignment = taCenter
      AutoSize = False
      Caption = 'Decryption Failed !!!'
      Font.Color = clRed
      Font.Height = -27
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      Transparent = True
    end
    object Label6: TLabel
      Left = 268
      Top = 35
      Width = 306
      Height = 133
      Align = alRight
      AutoSize = False
      Caption =
        'Either you have incorrectly entered your pass phrase, the messag' +
        'e was not encrypted to you, or the message is not a valid PGP en' +
        'crypted message.'
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object BitBtn10: TBitBtn
      Left = 356
      Top = 122
      Width = 205
      Height = 35
      TabOrder = 0
      OnClick = BitBtn10Click
      Kind = bkOK
    end
  end
  object MainMenu1: TMainMenu
    Left = 20
    Top = 78
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object OpenMessage1: TMenuItem
        Caption = '&Open Message'
        ShortCut = 16463
        OnClick = OpenMessage1Click
      end
      object SaveMessage1: TMenuItem
        Caption = '&Save Message'
        ShortCut = 16467
        OnClick = SaveMessage1Click
      end
      object DeleteSavedMessage1: TMenuItem
        Caption = 'Delete Saved Message'
        ShortCut = 0
        OnClick = DeleteSavedMessage1Click
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Encrypt1: TMenuItem
        Caption = '&Encrypt'
        ShortCut = 16453
        OnClick = BitBtn1Click
      end
      object Decrypt1: TMenuItem
        Caption = '&Decrypt '
        ShortCut = 16452
        OnClick = BitBtn2Click
      end
      object ClearMessage1: TMenuItem
        Caption = 'Clear Message Editor'
        ShortCut = 0
        OnClick = ClearMessage1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Print1: TMenuItem
        Caption = '&Print'
        ShortCut = 0
        OnClick = Print1Click
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object ClearStoredPassPhrase1: TMenuItem
        Caption = '&Clear Stored Pass Phrase'
        ShortCut = 16464
        OnClick = ClearStoredPassPhrase1Click
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = 'Edit'
      ShortCut = 0
      object CopyMessageToClipboard1: TMenuItem
        Caption = '&Copy Message To Clipboard'
        ShortCut = 0
        OnClick = CopyMessageToClipboard1Click
      end
      object CutMessageToClipboard1: TMenuItem
        Caption = 'Cu&t Message To Clipboard'
        ShortCut = 0
        OnClick = CutMessageToClipboard1Click
      end
      object PasteMessageFromClipboard1: TMenuItem
        Caption = '&Paste Message From Clipboard'
        ShortCut = 0
        OnClick = PasteMessageFromClipboard1Click
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Signature1: TMenuItem
        Caption = '&Signature'
        ShortCut = 0
        OnClick = Signature1Click
      end
    end
    object Displaly1: TMenuItem
      Caption = 'Display'
      ShortCut = 0
      object Font1: TMenuItem
        Caption = 'Font'
        ShortCut = 0
        OnClick = Font1Click
      end
      object Color1: TMenuItem
        Caption = 'Color'
        ShortCut = 0
        OnClick = Color1Click
      end
    end
    object KeyManagement1: TMenuItem
      Caption = '&Key Management'
      ShortCut = 0
      object GenerateSecretPublicKeypair1: TMenuItem
        Caption = 'Generate Secret/Public Keypair'
        ShortCut = 0
        OnClick = GenerateSecretPublicKeypair1Click
      end
      object ImportKeysIntoYourKeyring1: TMenuItem
        Caption = 'Import Keys Into Your Keyring'
        ShortCut = 0
        OnClick = ImportKeysIntoYourKeyring1Click
      end
      object ExportKeysFromYourKeyring1: TMenuItem
        Caption = 'Export Keys From Your Keyring'
        ShortCut = 0
        OnClick = ExportKeysFromYourKeyring1Click
      end
      object RemoveAKeyFromYourKeyring1: TMenuItem
        Caption = 'Remove A Key From Your Keyring'
        ShortCut = 0
        OnClick = RemoveAKeyFromYourKeyring1Click
      end
      object ViewPublicKeyringContents1: TMenuItem
        Caption = 'View Public Keyring Contents'
        ShortCut = 0
        OnClick = ViewPublicKeyringContents1Click
      end
      object ViewSecretKeyringContents1: TMenuItem
        Caption = 'View Secret Keyring Contents'
        ShortCut = 0
        OnClick = ViewSecretKeyringContents1Click
      end
      object UpdagePublicKeyringList1: TMenuItem
        Caption = 'Update Public Keyring List'
        ShortCut = 0
        OnClick = UpdagePublicKeyringList1Click
      end
    end
    object PGPFileEncryption1: TMenuItem
      Caption = 'PGP File Encryption'
      ShortCut = 0
      object ASCIIARmorEncryptaFile1: TMenuItem
        Caption = 'ASCII Armor (Encrypt) a File'
        ShortCut = 0
        OnClick = ASCIIARmorEncryptaFile1Click
      end
      object DecryptAnASCIIArmoredFile1: TMenuItem
        Caption = 'Decrypt An ASCII Armored File'
        ShortCut = 0
        OnClick = DecryptAnASCIIArmoredFile1Click
      end
    end
    object Setup1: TMenuItem
      Caption = '&Setup'
      ShortCut = 0
      object PGPPath1: TMenuItem
        Caption = 'PGP Path'
        ShortCut = 0
        OnClick = PGPPath1Click
      end
      object PassPhrase1: TMenuItem
        Caption = 'Pass Phrase'
        ShortCut = 0
        OnClick = PassPhrase1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object PowerPGPDics1: TMenuItem
        Caption = 'PowerPGP Docs'
        ShortCut = 112
        OnClick = PowerPGPDics1Click
      end
      object HelpwithPGP1: TMenuItem
        Caption = 'Help with PGP'
        ShortCut = 8304
        OnClick = HelpwithPGP1Click
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object About1: TMenuItem
        Caption = '&About'
        ShortCut = 0
        OnClick = About1Click
      end
    end
  end
  object Timer1: TTimer
    Interval = 50
    OnTimer = Timer1Timer
    Left = 48
    Top = 78
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Options = [cdPreventFullOpen]
    Left = 76
    Top = 78
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    MinFontSize = 0
    MaxFontSize = 0
    Left = 104
    Top = 78
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'MSG'
    FileEditStyle = fsEdit
    Filter =
      'Message Files|*.MSG|ASC Files|*.ASC|PGP Files|*.PGP|TXT Files|*.' +
      'TXT|All Files|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Open Saved Message'
    Left = 132
    Top = 78
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'MSG'
    FileEditStyle = fsEdit
    Filter =
      'Message Files|*.MSG|ASC Files|*.ASC|PGP Files|*.PGP|TXT Files|*.' +
      'TXT|All Files|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
    Title = 'Save Message'
    Left = 158
    Top = 78
  end
  object Timer2: TTimer
    Interval = 60000
    OnTimer = Timer2Timer
    Left = 184
    Top = 78
  end
  object PrintDialog1: TPrintDialog
    Left = 212
    Top = 78
  end
  object OpenDialog2: TOpenDialog
    DefaultExt = 'MSG'
    FileEditStyle = fsEdit
    Filter = 'Message Files|*.MSG|Text Files|*.TXT|All Files |*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Delete a saved message'
    Left = 240
    Top = 78
  end
  object PopupMenu1: TPopupMenu
    Left = 268
    Top = 78
    object Cut1: TMenuItem
      Caption = 'Cut'
      ShortCut = 0
      OnClick = Cut1Click
    end
    object CutMessage1: TMenuItem
      Caption = 'Cut Message'
      ShortCut = 0
      OnClick = CutMessageToClipboard1Click
    end
    object Copy1: TMenuItem
      Caption = 'Copy'
      ShortCut = 0
      OnClick = Copy1Click
    end
    object CopyMessage1: TMenuItem
      Caption = 'Copy Message'
      ShortCut = 0
      OnClick = CopyMessageToClipboard1Click
    end
    object Paste1: TMenuItem
      Caption = 'Paste'
      ShortCut = 0
      OnClick = Paste1Click
    end
    object PasteDecrypt1: TMenuItem
      Caption = 'Paste/Decrypt'
      ShortCut = 0
      OnClick = BitBtn11Click
    end
    object PasteMessage1: TMenuItem
      Caption = 'Paste Message'
      ShortCut = 0
      OnClick = PasteMessageFromClipboard1Click
    end
    object Delete1: TMenuItem
      Caption = 'Delete'
      ShortCut = 0
      OnClick = Delete1Click
    end
    object N7: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object SelectAll1: TMenuItem
      Caption = 'Select All'
      ShortCut = 0
      OnClick = SelectAll1Click
    end
    object N8: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object EncryptMessage1: TMenuItem
      Caption = 'Encrypt Message'
      ShortCut = 0
      OnClick = BitBtn1Click
    end
    object DecryptMessage1: TMenuItem
      Caption = 'Decrypt Message'
      ShortCut = 0
      OnClick = BitBtn2Click
    end
    object CLEARSIGMessage1: TMenuItem
      Caption = 'CLEARSIG Message'
      ShortCut = 0
      OnClick = BitBtn8Click
    end
    object SignEncryptMessage1: TMenuItem
      Caption = 'Sign/Encrypt Message'
      ShortCut = 0
      OnClick = BitBtn9Click
    end
  end
end