object frmSettings: TfrmSettings
  Left = 261
  Top = 163
  Width = 344
  Height = 230
  BorderIcons = []
  Caption = 'Settings'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 5
    Top = 4
    Width = 328
    Height = 165
    ActivePage = TabSheet1
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = 'Basic settings'
      object Label5: TLabel
        Left = 15
        Top = 92
        Width = 33
        Height = 13
        Caption = 'SMTP '
      end
      object Label4: TLabel
        Left = 15
        Top = 24
        Width = 117
        Height = 13
        Caption = 'Your main e-mail address'
      end
      object Label1: TLabel
        Left = 5
        Top = 5
        Width = 53
        Height = 13
        Caption = 'User Info'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label2: TLabel
        Left = 5
        Top = 73
        Width = 38
        Height = 13
        Caption = 'Server'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 271
        Top = 92
        Width = 31
        Height = 13
        Caption = 'Port nr'
      end
      object edsSMTP: TEdit
        Left = 15
        Top = 107
        Width = 246
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        Text = 'mail.geocities.com'
      end
      object edsEmail: TEdit
        Left = 13
        Top = 40
        Width = 300
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object cmdMailTo: TButton
        Left = 239
        Top = 4
        Width = 75
        Height = 25
        Caption = 'MailTo'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = cmdMailToClick
      end
      object edsPort: TEdit
        Left = 268
        Top = 107
        Width = 45
        Height = 21
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        Text = '25'
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Dial Up'
      object Label27: TLabel
        Left = 5
        Top = 5
        Width = 41
        Height = 13
        Caption = 'Dial up'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label29: TLabel
        Left = 15
        Top = 52
        Width = 95
        Height = 13
        Caption = 'Use this dialup entry'
      end
      object chkDialup: TCheckBox
        Left = 15
        Top = 28
        Width = 300
        Height = 17
        Caption = '&Use dialup connection'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object lstEntries: TComboBox
        Left = 15
        Top = 68
        Width = 186
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = lstEntriesClick
      end
    end
  end
  object cmdOk: TButton
    Left = 174
    Top = 173
    Width = 75
    Height = 25
    Caption = '&Ok'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = cmdOkClick
  end
  object cmdCancel: TButton
    Left = 256
    Top = 173
    Width = 75
    Height = 25
    Caption = '&Cancel'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = cmdCancelClick
  end
end