object FORM777: TFORM777
  Left = 5
  Top = 51
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu, biMinimize]
  AutoScroll = False
  Caption = 'Ayuda (Bases de Datos)'
  ClientHeight = 461
  ClientWidth = 640
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Position = poScreenCenter
  WindowState = wsMaximized
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 16
  object Memo1: TMemo
    Left = 0
    Top = 8
    Width = 17
    Height = 25
    Font.Color = clBlack
    Font.Height = -1
    Font.Name = 'Arial'
    Font.Style = []
    Lines.Strings = (
      '.'
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      '.')
    ParentFont = False
    TabOrder = 0
    Visible = False
  end
  object Memo123: TMemo
    Left = 0
    Top = 56
    Width = 17
    Height = 25
    Font.Color = clBlack
    Font.Height = -1
    Font.Name = 'Arial'
    Font.Style = []
    Lines.Strings = (
      '0')
    ParentFont = False
    TabOrder = 1
    Visible = False
  end
  object Panel298765: TPanel
    Left = 8
    Top = 8
    Width = 617
    Height = 441
    BevelInner = bvLowered
    BevelWidth = 2
    BorderWidth = 1
    BorderStyle = bsSingle
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnMouseMove = Panel298765MouseMove
    object Label50: TLabel
      Left = 80
      Top = 24
      Width = 57
      Height = 49
      Hint = 'Registro primero'
      Alignment = taCenter
      Caption = 'Primero'
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
      OnMouseMove = Label50MouseMove
    end
    object Label51: TLabel
      Left = 136
      Top = 24
      Width = 57
      Height = 49
      Hint = 'Registro anterior'
      Alignment = taCenter
      Caption = 'Anterior'
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
      OnMouseMove = Label51MouseMove
    end
    object Label52: TLabel
      Left = 192
      Top = 24
      Width = 57
      Height = 49
      Hint = 'Siguiente registro'
      Alignment = taCenter
      Caption = 'Siguiente'
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
      OnMouseMove = Label52MouseMove
    end
    object Label53: TLabel
      Left = 248
      Top = 24
      Width = 57
      Height = 49
      Hint = '�ltimo registro'
      Alignment = taCenter
      Caption = '�ltimo'
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
      OnMouseMove = Label53MouseMove
    end
    object Label54: TLabel
      Left = 304
      Top = 24
      Width = 57
      Height = 49
      Hint = 'A�adir registro'
      Alignment = taCenter
      Caption = 'Nuevo'
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
      OnMouseMove = Label54MouseMove
    end
    object Label55: TLabel
      Left = 360
      Top = 24
      Width = 57
      Height = 49
      Hint = 'Borrar registro'
      Alignment = taCenter
      Caption = 'Borrar'
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
      OnMouseMove = Label55MouseMove
    end
    object Label56: TLabel
      Left = 416
      Top = 24
      Width = 57
      Height = 49
      Hint = 'Grabar registro'
      Alignment = taCenter
      Caption = 'Grabar'
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
      OnMouseMove = Label56MouseMove
    end
    object Label57: TLabel
      Left = 472
      Top = 24
      Width = 57
      Height = 49
      Hint = 'Actualizar datos'
      Alignment = taCenter
      Caption = 'Actualizar'
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
      OnMouseMove = Label57MouseMove
    end
    object Label3: TLabel
      Left = 176
      Top = 88
      Width = 250
      Height = 22
      Alignment = taCenter
      Caption = 'AYUDA  -  BASE DE DATOS'
      DragMode = dmAutomatic
      Font.Color = clBlack
      Font.Height = -19
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object SpButton200: TSpeedButton
      Left = 472
      Top = 144
      Width = 25
      Height = 25
      Hint = 'Ayuda'
      Caption = '?'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpButton200Click
      OnMouseMove = SpButton200MouseMove
    end
    object Label2: TLabel
      Left = 16
      Top = 128
      Width = 293
      Height = 16
      Hint = 'Campo clave (�ndice)'
      Caption = 'Nombre del S�ntoma, Enfermedad, Producto, etc...'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
    end
    object Label1: TLabel
      Left = 16
      Top = 200
      Width = 431
      Height = 16
      Caption = 
        'Tratamiento recomendado, Modo de Empleo, Otros datos de inter�s,' +
        ' etc...'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      Visible = False
    end
    object SpeedButton1: TSpeedButton
      Left = 504
      Top = 144
      Width = 25
      Height = 25
      Hint = 'Visualizar Lista'
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        330033333333333333003300000000033300330FFFFFFF033300330F00000F03
        3300330FFFFFFF033300330F00000F033300330FFFFFFF033300330F000FFF03
        3300330FFFFF00033300330F00FF0F033300330FFFFF00333300330000000333
        33003333333333333300}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
      OnMouseMove = SpeedButton1MouseMove
    end
    object BitBtn1: TBitBtn
      Left = 16
      Top = 24
      Width = 41
      Height = 41
      Hint = 'Volver al Men�'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = BitBtn1Click
      OnMouseMove = BitBtn1MouseMove
      Glyph.Data = {
        76020000424D7602000000000000760000002800000020000000200000000100
        0400000000000000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        777777777777777777777777777777731444444E131313131377777777FFFF71
        F4444EE9F9F9F13131777777777777739B44449B9B9B9B9B93777FFFF7777771
        F9CCC4F931F939F9F1777777777777739B9CCC4B139B139B9377777777744471
        F9F4CCC431F931F9F1777777774CCC439BA44CCE139B139B9377744774CCCCC4
        4AA4CCE931F931F9F17774444CCCCCCCAAA3339B139B139B93777E4444CEECCA
        AA4BBB3931F931F9F17777E44EE77ECCA4CCBB3B9B9B9B9B9377777EEE7777EC
        4CCCE38444443339F177777777777774CCCE0AACCCCCBB3B937777777777774C
        CCEAAACCCCCCBBB3F1777777777774CCCECAACCCEEEEBB3B9377777777777ECC
        CCECCCCE313133F9F1777111111117ECCCCECCE31313139B937771999999997E
        CCCCCCB1313131F9F177719999999973ECCCCBBB1313139B937771999FF99971
        FEECBBBBB13131F9F177719999FF99739B888B3B3313139B9377719FFFFFF971
        F9888833313131F9F177719999FF99739B44444444139B9B937771999FF99971
        F9CCCCCCCCF9F9F9F1777199999999739BEECCCCEE9B9B9B9377779999999971
        F9F9CCCEF9F9F131317777777777777313131313131313131377777777777777
        7777777777777777777777777777777777777777777777777777}
    end
    object DBNavigator1: TDBNavigator
      Left = 80
      Top = 40
      Width = 448
      Height = 25
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbRefresh]
      Ctl3D = True
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = DBNavigator1Click
    end
    object BitBtn2: TBitBtn
      Left = 552
      Top = 24
      Width = 41
      Height = 41
      Hint = 'Imprimir'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = BitBtn2Click
      OnMouseMove = BitBtn2MouseMove
      Glyph.Data = {
        76020000424D7602000000000000760000002800000020000000200000000100
        0400000000000000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700000000000
        000000000000000000070F8888888888888888888888888888800FF800000000
        000000000000008888800FF708888888888888888888880778800FF70F777777
        777777777777778078800FF70F777777777777777777778808800FF70F777777
        777777777777778808800FF708888888888888888888888808800FF000000000
        000000000000000808800F0888888888888888888888888008800F0777777777
        777777777777777808800F0777777777777777777777777880800F0777777777
        777777777777777888000F0777777777777777777777777888000F0777777777
        777777777777777888000F0777777777777777777999977888000F0777777777
        777777777777777888000F0FFFFFFFFFFFFFFFFFFFFFFFF888000F0777777777
        777777777777777F88000FF0777700000000000000008777F8000FF700000FFF
        FFFFFFFFFFF0000000000FF777770FFCCCCCCCCCCFF0777778800FF777770FFF
        FFFFFFFFFFF0777778800FF7777788F8CCCCCCCCC8F8877778800FF7777770FF
        FFFFFFFFFFFF077778800FF77777770FFCCCCCCCCCCFF07778800FF777777770
        FFFFFFFFFFFFFF0778800FF7777777788FCCCCCCCCCCFF8878800FF777777777
        0FFFFFFFFFFFFFF078800FFFFFFFFFFF0FFFFFFFFFFFFFF0FF800FFFFFFFFFFF
        0FFFFFFFFFFFFFF0FFF070000000000000000000000000000007}
    end
    object BitBtn2000: TBitBtn
      Left = 440
      Top = 144
      Width = 25
      Height = 25
      Hint = 'Busca registros en el campo clave (�ndice)'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = BitBtn2000Click
      OnMouseMove = BitBtn2000MouseMove
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33003333333333333300300000000333330000B7B7B7B03333000B0B7B7B7B03
        33000BB0B7B7B7B033000FBB0000000033000BFB0B0B0B0333000FBFBFBFB003
        33000BFBFBF00033330030BFBF03333333003800008333333300333333333333
        33003333333333333300}
    end
    object n1: TMemo
      Left = 16
      Top = 144
      Width = 417
      Height = 25
      Hint = 'Campo clave (�ndice)'
      DragMode = dmAutomatic
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      Lines.Strings = (
        
          'En este campo se ha de escribir el S�ntoma, Enfermedad, Producto' +
          ', etc...')
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 4
      OnMouseMove = n1MouseMove
    end
    object n2: TMemo
      Left = 16
      Top = 216
      Width = 577
      Height = 121
      Hint = 'Podr� escribir toda la informaci�n que usted desee.'
      DragMode = dmAutomatic
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      Lines.Strings = (
        
          'Esta pantalla es s�lo de informaci�n � de ayuda para el usuario.' +
          ' '
        ''
        
          '- Antes de cambiar del campo clave (�ndice) a otros campos, debe' +
          'r� usted de pulsar el bot�n:'
        '  GRABAR.'
        ' '
        
          '- En este tipo de campo, se encribir� toda la informaci�n desead' +
          'a, por ejemplo:  '
        
          '  El tratamiento recomendado,  Indicaciones,  Modo de empleo,  O' +
          'tros datos de inter�s, '
        
          '  Observaciones,  Definici�n del T�rmino m�dico,  Funci�n el el ' +
          'organismo, '
        '  Recomendaciones terap�uticas, etc, etc, ...'
        ''
        
          '- Para visualizar toda la informaci�n que contienen los campos, ' +
          'haga uso de las barras'
        '  de desplazamiento que contienen.'
        ''
        
          '- Para cambiar de linea dentro del mismo campo, pulse la tecla: ' +
          'INTRO.'
        ''
        
          '- Para cambiar de un campo a otro campo, haga clic con el punter' +
          'o del mouse sobre el '
        
          '  campo deseado y a continuaci�n escriba toda la informaci�n que' +
          ' usted desee.'
        ''
        
          '- Recuerda que los cambios que hagas ser�n escritos en la base d' +
          'e datos tan pronto como'
        '  abandones la fila actual o hagas clic en el bot�n Grabar. '
        
          '  Por seguridad, Graba y Actualiza los datos introducidos antes ' +
          'de cerrar.'
        '')
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ScrollBars = ssVertical
      ShowHint = True
      TabOrder = 5
      OnMouseMove = n2MouseMove
    end
    object Panel1: TPanel
      Left = 16
      Top = 376
      Width = 577
      Height = 41
      Hint = 'Panel de informaci�n'
      BevelInner = bvRaised
      BorderWidth = 3
      DragMode = dmAutomatic
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
    end
    object DBLookupListBox1: TDBLookupListBox
      Left = 16
      Top = 216
      Width = 577
      Height = 148
      Color = clWhite
      KeyField = 'Dolencia/Enfermedad'
      ListField = 'Dolencia/Enfermedad'
      ListSource = DataSource1
      TabOrder = 7
      Visible = False
      OnClick = DBLookupListBox1Click
      OnMouseMove = DBLookupListBox1MouseMove
    end
    object UpDown1: TUpDown
      Left = 16
      Top = 80
      Width = 17
      Height = 33
      Hint = 'Botones de Desplazamiento'
      Min = 0
      ParentShowHint = False
      Position = 0
      ShowHint = False
      TabOrder = 8
      Wrap = False
      OnMouseMove = UpDown1MouseMove
    end
    object BOTONCANCELAR: TButton
      Left = 480
      Top = 328
      Width = 67
      Height = 25
      Hint = 'Cancelar Lista'
      Caption = '&Ocultar'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 9
      Visible = False
      OnClick = BOTONCANCELARClick
      OnMouseMove = BOTONCANCELARMouseMove
    end
  end
  object PrintDialog1: TPrintDialog
    Copies = 1
    Options = [poSelection]
    Left = 616
    Top = 48
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 616
    Top = 88
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 608
    Top = 392
  end
  object ReplaceDialog1: TReplaceDialog
    Left = 608
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 610
    Top = 170
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'c:\natup1'
    IndexFieldNames = 'Dolencia/Enfermedad'
    TableName = 'Tnatural.DB'
    Left = 610
    Top = 114
  end
end