Hot Shareware 35/hot35.iso/ficheros/9MISC/ONIRO2.ZIP/Oniroman/Oniroman.exe/0/RCDATA/TFORMAPRIMERA/TFORMAPRIMERA.txt

Text File | 1998-06-10 | 38KB | 1,392 lines

object FORMAPRIMERA: TFORMAPRIMERA
  Left = 1
  Top = 59
  Width = 648
  Height = 492
  ActiveControl = DBNavigator5
  Caption = 'ONIROMANCIA v2.0 (Sue�os de la Suerte)'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnMouseMove = FormMouseMove
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 617
    Height = 441
    BevelInner = bvLowered
    BorderWidth = 1
    BorderStyle = bsSingle
    DragMode = dmAutomatic
    Color = cl3DLight
    TabOrder = 0
    OnMouseMove = Panel1MouseMove
    object SpButon200: TSpeedButton
      Left = 576
      Top = 376
      Width = 33
      Height = 25
      Hint = 'Ayuda'
      Caption = '?'
      Font.Color = clRed
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      Visible = False
      OnClick = SpButon200Click
      OnMouseMove = SpButon200MouseMove
    end
    object Spbuton100: TSpeedButton
      Left = 456
      Top = 344
      Width = 33
      Height = 25
      Hint = 'Visualizar Lista'
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        330033333333333333003300000000033300330FFFFFFF033300330F00000F03
        3300330FFFFFFF033300330F00000F033300330FFFFFFF033300330F000FFF03
        3300330FFFFF00033300330F00FF0F033300330FFFFF00333300330000000333
        33003333333333333300}
      ParentShowHint = False
      ShowHint = False
      OnClick = Spbuton100Click
      OnMouseMove = Spbuton100MouseMove
    end
    object Label9: TRzLabel
      Left = 8
      Top = 72
      Width = 165
      Height = 15
      Caption = 'Nombre de la Imagen On�rica:'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseMove = Label9MouseMove
      TextStyle = tsRaised
    end
    object Label11: TRzLabel
      Left = 8
      Top = 128
      Width = 106
      Height = 15
      Caption = 'Significado On�rico:'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseMove = label11MouseMove
      TextStyle = tsRaised
    end
    object label990: TRzLabel
      Left = 8
      Top = 296
      Width = 310
      Height = 15
      Caption = 'N�mero(s) de la Suerte para Juegos de Azar y Apuestas:'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      TextStyle = tsRaised
    end
    object Label3: TRzLabel
      Left = 8
      Top = 8
      Width = 65
      Height = 49
      Alignment = taCenter
      Caption = 'Primero'
      Color = clBlack
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
      OnMouseMove = Label3MouseMove
      TextStyle = tsRaised
    end
    object Label10: TRzLabel
      Left = 296
      Top = 72
      Width = 65
      Height = 49
      Alignment = taCenter
      Caption = 'Anterior'
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseMove = RzLabel5MouseMove
      TextStyle = tsRaised
    end
    object Label7: TRzLabel
      Left = 152
      Top = 8
      Width = 65
      Height = 49
      Alignment = taCenter
      Caption = 'A�adir'
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseMove = RzLabel6MouseMove
      TextStyle = tsRaised
    end
    object Label8: TRzLabel
      Left = 224
      Top = 8
      Width = 65
      Height = 49
      Alignment = taCenter
      Caption = 'Borrar'
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseMove = RzLabel7MouseMove
      TextStyle = tsRaised
    end
    object Label5: TRzLabel
      Left = 296
      Top = 8
      Width = 65
      Height = 49
      Alignment = taCenter
      Caption = 'Actualizar'
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseMove = RzLabel8MouseMove
      TextStyle = tsRaised
    end
    object Label4: TRzLabel
      Left = 368
      Top = 8
      Width = 65
      Height = 49
      Alignment = taCenter
      Caption = 'Grabar'
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseMove = RzLabel9MouseMove
      TextStyle = tsRaised
    end
    object Label98: TRzLabel
      Left = 368
      Top = 72
      Width = 65
      Height = 49
      Alignment = taCenter
      Caption = 'Siguiente'
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseMove = Label98MouseMove
      TextStyle = tsRaised
    end
    object Label16: TRzLabel
      Left = 448
      Top = 128
      Width = 84
      Height = 15
      Caption = 'Imagen On�rica'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseMove = Label99MouseMove
      TextStyle = tsRaised
    end
    object Label99: TRzLabel
      Left = 80
      Top = 8
      Width = 65
      Height = 49
      Alignment = taCenter
      Caption = 'Cancelar'
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseMove = Label99MouseMove
      TextStyle = tsRaised
    end
    object memo9: TDBMemo
      Left = 8
      Top = 88
      Width = 281
      Height = 25
      DataField = 'Imagen On�rica'
      DataSource = DataSource1
      Enabled = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      MaxLength = 50
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      OnClick = memo9Click
      OnEnter = memo9Enter
      OnExit = memo9Exit
      OnKeyPress = memo9KeyPress
      OnMouseMove = memo9MouseMove
    end
    object memo10: TDBMemo
      Left = 8
      Top = 144
      Width = 417
      Height = 137
      DataField = 'Interpretaci�n On�rica'
      DataSource = DataSource1
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 1
      OnClick = memo10Click
      OnEnter = memo9Enter
      OnExit = memo9Exit
      OnMouseMove = memo10MouseMove
    end
    object Panel3: TPanel
      Left = 8
      Top = 400
      Width = 593
      Height = 25
      BevelInner = bvLowered
      BorderStyle = bsSingle
      DragMode = dmAutomatic
      Color = cl3DLight
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnMouseMove = Panel3MouseMove
    end
    object DBNavigator1: TDBNavigator
      Left = 376
      Top = 24
      Width = 49
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbPost]
      TabOrder = 3
      OnClick = DBNavigator1Click
    end
    object Memo11: TDBMemo
      Left = 8
      Top = 312
      Width = 417
      Height = 81
      DataField = 'Datos de Inter�s'
      DataSource = DataSource1
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 4
      OnClick = Memo11Click
      OnEnter = memo9Enter
      OnExit = memo9Exit
      OnMouseMove = Memo11MouseMove
    end
    object Panel2: TPanel
      Left = 448
      Top = 8
      Width = 153
      Height = 105
      BevelInner = bvLowered
      BorderWidth = 1
      DragMode = dmAutomatic
      Color = clSilver
      TabOrder = 5
      OnMouseMove = Panel2MouseMove
      object BitBoton9812: TBitBtn
        Left = 8
        Top = 8
        Width = 41
        Height = 41
        TabOrder = 0
        OnClick = BitBoton9812Click
        OnMouseMove = BitBoton9812MouseMove
        Glyph.Data = {
          76020000424D7602000000000000760000002800000020000000200000000100
          0400000000000000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888888888888888888888888888888888888888888888888888888888
          8888888888888888888888888888888888888888888888888888888888888888
          8888888888888888888888888888888888888888888888888888888888888888
          8888888888888888888888888888888888888888888878888888888888887888
          8888888888887788888877888888788888888808888887888888777888887788
          8888808888888778888807777888778888780778888887788888800777888788
          8700800777788778888878800F777778708888000777887888887888800FFF77
          088800EEE007787788887888888800F08880EEEEEEE077777888778888888808
          800EEEEEEEEE007F77887778878888880EEEEEEEEEEEEE00F780777877887700
          EEEEEEEEEEEEEEEE0F0E0777788700EEEEEEEEEEEEEEEEEEE0EEE0FF7770EEEE
          EEEEEEE0EEEEEEEEEEEEEE0FF00EEEEEEE0EEE000EE0EEEEEEEEEEE00EEEEEEE
          EEE000EEE00EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
          EEEEEEEEEEEEEEEFFFFFEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEFFEEEEEEEEEEEE
          EEEEEEEEEEEEEEEEEEEEEEBBBEEEEEEEEFFFFFFFFEEEEEEEFEEEEBBBBBEEEEEE
          EEEEFFFFFFFEFFFFFFEEEBBBBBEEEEEEEEEEEFFFEEEFEFFEEEEEEBBBBBEEEEEE
          EEEEEEEEEEEEEEEEEEEEEEBBBEEEEEEEEEEEEEEEEEEEEEEEEEEE}
      end
      object BitBtn7gf: TBitBtn
        Left = 56
        Top = 8
        Width = 41
        Height = 41
        Hint = 'Acerca de...'
        ParentShowHint = False
        ShowHint = False
        TabOrder = 1
        OnClick = BitBtn7gfClick
        OnMouseMove = BitBtn7gfMouseMove
        Glyph.Data = {
          76020000424D7602000000000000760000002800000020000000200000000100
          0400000000000000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF7F7F77700C
          CCEEFFFCCE07FFFFFF00FFF7F7F0E00CCCEEFFFCCE00FFFFF000FFFF7F70E00C
          CCEEFFFCCE00FFFF000FFFFFFFF0E00CCCEEFFFCCE00FFF000FFFFFFFFF0E00C
          CCEEFFFCCE00FF000FFFFFFFFFF0E000000000000E00F000FFFFFFFFFFF000CC
          CCEEFFFCC00F000FFFFFFFFFFFF0EC0CCCEEFFFCCEF000FFFFFFFFFFFF00E000
          000000000F000FFFFFFFFFFFF8007C7C7C7C7C7CF000FFFFFFFFFFFF70C7C7C7
          C7C7C7CF000FC07FFFFFFFF70C7C7C77777777F000FC7C07FFFFFFF0C7C7C707
          33073F0F0FE7CCC0FFFFFFF77C7C7BBB3333F0FF060E7E70FFFFFFFF07C33BB3
          B333F0F06307C70FFFFFFFFF870333BB3333300F30E007EFFFFFFFFFF033333B
          788883600330EFFFCEFFFFFFF03333338800883333330F0F0FF0FFFFF0333333
          80FF083B3B3B0FFFFFCFFFFFF0B3B3B380FF083333330FCE0FEFFFFFF0333333
          8800883333330FFFFFF0FFFFF03333333888833333330FFFCEFFFFFFFF033E3B
          B33333B33330FFFFFFFFFFFFFF0E33B7B33333BB3330FFFFFFFCFFFFFFF03BBB
          73333B8BB30FFFFFFFFFFFFFFFF0BB7B333333BBBB0FFFFFFFFFFFFFFFFF00B7
          3333333B00FFFFFFFFFFFFFFFFFFFF0033333300FFFFFFFFFFFFFFFFFFFFFFFF
          000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
      end
      object BitBtn2956: TBitBtn
        Left = 104
        Top = 8
        Width = 41
        Height = 41
        Hint = 'Salir'
        ParentShowHint = False
        ShowHint = False
        TabOrder = 2
        OnClick = BitBtn2956Click
        OnMouseMove = BitBtn2956MouseMove
        Glyph.Data = {
          76020000424D7602000000000000760000002800000020000000200000000100
          0400000000000000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777777777777777777777777777777777777777777777777777777777777777
          777777777777777777777777777777731444444E131313131377777777FFFF71
          F4444EE9F9F9F13131777777777777739B44449B9B9B9B9B93777FFFF7777771
          F9CCC4F931F939F9F1777777777777739B9CCC4B139B139B9377777777744471
          F9F4CCC431F931F9F1777777774CCC439BA44CCE139B139B9377744774CCCCC4
          4AA4CCE931F931F9F17774444CCCCCCCAAA3339B139B139B93777E4444CEECCA
          AA4BBB3931F931F9F17777E44EE77ECCA4CCBB3B9B9B9B9B9377777EEE7777EC
          4CCCE38444443339F177777777777774CCCE0AACCCCCBB3B937777777777774C
          CCEAAACCCCCCBBB3F1777777777774CCCECAACCCEEEEBB3B9377777777777ECC
          CCECCCCE313133F9F1777111111117ECCCCECCE31313139B937771999999997E
          CCCCCCB1313131F9F177719999999973ECCCCBBB1313139B937771999FF99971
          FEECBBBBB13131F9F177719999FF99739B888B3B3313139B9377719FFFFFF971
          F9888833313131F9F177719999FF99739B44444444139B9B937771999FF99971
          F9CCCCCCCCF9F9F9F1777199999999739BEECCCCEE9B9B9B9377779999999971
          F9F9CCCEF9F9F131317777777777777313131313131313131377777777777777
          7777777777777777777777777777777777777777777777777777}
      end
      object BitBtn2dk56: TBitBtn
        Left = 8
        Top = 56
        Width = 41
        Height = 41
        Hint = 'Hoja de Pedido'
        ParentShowHint = False
        ShowHint = False
        TabOrder = 3
        OnClick = BitBtn2dk56Click
        OnMouseMove = BitBtn2dk56MouseMove
        Glyph.Data = {
          76020000424D7602000000000000760000002800000020000000200000000100
          0400000000000000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
          888FFFFFFFFFFFFFFFFFFFFFFFFFFFF87078FFFFFFFFFFFFFFFFFFFFFFFFFF87
          0F078FFFFFFFFFFFFFFFFFFFFFFFF870FFF078FFFFFFFFFFFFFFFFFFFFFF870F
          FFFF078FFFFFFFFFFFFFFFFFFFF870FFFF7FF078FFFFFFFFFFFFFFFFFF870FFF
          7FF7FF078FFFFFFFFFFFFFFFF870FFFFF7FF7FF078FFFFFFFFFFFFFF870FFFFF
          FF7FF7FF078FFFFFFFFFFFF870FFFFF0FFF7FF7FF078FFFFFFFFFF870FFFFFF0
          FFFFFFF7FF07FFFFFFFFFF70FFFFF00000FFF7FF7FF0FFFFFFFFFF0FFFF7FFF0
          FFFFFF7FFF0FFFFFFFFFF0FFF7FF7FF00FFFFFFFF0FFFFFFFFFF0FFFFF7FF7FF
          F03FFFFF0FFFFFFFFFFFF0FF7FF7FFFFF3333FF0FFFFFFFFFFFFFF0FF7FF7FF7
          FF33B07FFFFFFFFFFFFFFFF0FF7FF7FF7F3BBB0FFFFFFFFFFFFFFFFF0FFFFF7F
          FFF0BBB0FFFFFFFFFFFFFFFFF0FF7FF7FFF70BBB0FFFFFFFFFFFFFFFFF0FF7FF
          FF0FF0BBB0FFFFFFFFFFFFFFFFF0FF7FF0FFFF0BBB0FFFFFFFFFFFFFFFFF0FFF
          0FFFFFF0BBB0FFFFFFFFFFFFFFFFF0F0FFFFFFFF0BBB0FFFFFFFFFFFFFFFFF0F
          FFFFFFFFF0BBB0FFFFFFFFFFFFFFFFFFFFFFFFFFFF0BBB0FFFFFFFFFFFFFFFFF
          FFFFFFFFFFF0BBB0FFFFFFFFFFFFFFFFFFFFFFFFFFFF0B0F0FFFFFFFFFFFFFFF
          FFFFFFFFFFFFF0F000FFFFFFFFFFFFFFFFFFFFFFFFFFFF00990FFFFFFFFFFFFF
          FFFFFFFFFFFFFFF0990FFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FF}
      end
      object BitBtn214569: TBitBtn
        Left = 104
        Top = 56
        Width = 41
        Height = 41
        Hint = 'Imprimir'
        ParentShowHint = False
        ShowHint = False
        TabOrder = 4
        OnClick = BitBtn214569Click
        OnMouseMove = BitBtn214569MouseMove
        Glyph.Data = {
          76020000424D7602000000000000760000002800000020000000200000000100
          0400000000000000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777007
          77770000777777777777777777770FF077700F0007777777777777777770FFFF
          07007F0F0077777777777777770FF8FFF0077F00F00777777777777770FF8FF8
          FF077F070F007777777777770FF8FF8FF0077F0770F0077777777770FF8FF8FF
          00777F07770F007777777770FFFF8FF0077770F07770F007777777770FF8FF00
          77770F7F07770F077777777770FFF0077770F777F07770F077777777700F0077
          770F77777F077700777777770000077770F7777777F077707777777007007777
          0F777777777F077077777770F7077770F77777777777F07077777770F778770F
          7777777777777F0077777770F7F780F777777777777777F077777770FF99870F
          77777777777777F077777770F899B870F777777777777F0777777770F88BBB87
          0F7777777777F007777777770F88B880F7777777777F0FF07777777770F8880F
          7777777777F0FFFF07777777770F80F7777777777F0FFFFFF077777777700F77
          77777777F0FFF8FFFF0777777770F7777777777F0FFF8FF8FFF0777777770F77
          777777F0FFF8FF8FFF077777777770F777777F0FFF8FF8FFF07777777777770F
          7777F00FFFFF8FFF0777777777777770F77F0770FFF8FFF07777777777777777
          0FF077770FFFFF0777777777777777777007777770FFF0777777777777777777
          77777777770F0777777777777777777777777777777077777777}
      end
      object PACO: TBitBtn
        Left = 56
        Top = 56
        Width = 41
        Height = 41
        TabOrder = 5
        OnClick = PACOClick
        OnMouseMove = PACOMouseMove
        Glyph.Data = {
          76020000424D7602000000000000760000002800000020000000200000000100
          0400000000000000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFF0
          0000000FFFFFFFFFFFFFFFFFFFFFFFF0BFBFBF00FFFFFFFFFFFFFFFFFFFFFFF0
          FBFBFB0B0FFFFFFFFFFFFFFFFFFFFFF0BFBFBF0BB0FFFFFFFFFFFFFFFFFFFFF0
          FBFBFB0BB07FFFFFFFFFFFFFFFFFFFF00000000BB077FFFFFFFFFFFFFFFFFFFF
          0BBBBBB0B077FFFFFFFFFFFFFFFFFFF00000000B0077FFFFFFFFFFFFFFFFFFF0
          FBFBFB00B077FFFFFFFFFFFFFFFFFFF0BFBFBF0B0FF7FFFFFFFFFFFFFFFFFFF0
          FBFBFB0BB07FFFFFFFFFFFFFFFFFFFF0BFBFBFB0B077FFFFFFFFFFFFFFFFFFF0
          FBFBFBF0B077FFFFFFFFFFFFFFFFFFFF0FBFBFBF0077FFFFFFFFFFFFFFFFFFFF
          0BFBFBFBF0777FFFFFFFFFFFFFFFFFFFF0BFBFBFBF0777FFFFFFFFFF0000000F
          FF0BFBFBFB00777FFFFFFFFF0FBFBF0FFFF0BFBFBFB00777FFFFFFFF0BFBFB0F
          FFFF0BFBFBF0B077FFFFFFFF0FBFBF0FFFFF0FBFBFB0B077FFFFFFFF0BFBFB0F
          FFFF0BFBFBF0BB077FFFFFFF0FBFBFB0FFF0BFBFBFB0BB077FFFFFFF0BFBFBFB
          000BFBFBFBF0BB077FFFFFFFF0BFBFBFBFBFBFBFBF0BBB077FFFFFFFF0FBFBFB
          FBFBFBFBFB0BBB077FFFFFFFFF0FBFBFBFBFBFBFB0BBBB077FFFFFFFFFF0FBFB
          FBFBFBFB0BBBB077FFFFFFFFFFFF00BFBFBFBF00BBBBB077FFFFFFFFFFFFF000
          000000BBBBBB077FFFFFFFFFFFFFFF0BBBBBBBBBBBB077FFFFFFFFFFFFFFFFF0
          0BBBBBBBB0077FFFFFFFFFFFFFFFFFFFF0000000077FFFFFFFFF}
      end
    end
    object BitBtn2000: TBitBtn
      Left = 560
      Top = 344
      Width = 33
      Height = 25
      Hint = 'Buscar registros'
      ParentShowHint = False
      ShowHint = False
      TabOrder = 6
      OnClick = BitBtn2000Click
      OnMouseMove = BitBtn2000MouseMove
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33003333333333333300300000000333330000B7B7B7B03333000B0B7B7B7B03
        33000BB0B7B7B7B033000FBB0000000033000BFB0B0B0B0333000FBFBFBFB003
        33000BFBFBF00033330030BFBF03333333003800008333333300333333333333
        33003333333333333300}
    end
    object DBNavigator2: TDBNavigator
      Left = 304
      Top = 24
      Width = 49
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbRefresh]
      TabOrder = 7
      OnClick = DBNavigator2Click
    end
    object NUEVO: TDBNavigator
      Left = 160
      Top = 24
      Width = 49
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbInsert]
      TabOrder = 8
      OnClick = NUEVOClick
    end
    object DBNavigator3: TDBNavigator
      Left = 16
      Top = 24
      Width = 49
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbFirst]
      TabOrder = 9
      OnClick = DBNavigator3Click
    end
    object DBNavigator4: TDBNavigator
      Left = 304
      Top = 88
      Width = 49
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbPrior]
      TabOrder = 10
      OnClick = DBNavigator4Click
    end
    object DBNavigator5: TDBNavigator
      Left = 376
      Top = 88
      Width = 49
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbNext]
      TabOrder = 11
      OnClick = DBNavigator5Click
    end
    object Memo2: TMemo
      Left = 408
      Top = 56
      Width = 33
      Height = 9
      Lines.Strings = (
        'P'
        'r'
        'o'
        'g'
        'r'
        'a'
        'm'
        'a '
        'r'
        'e'
        'a'
        'l'
        'i'
        'z'
        'a'
        'd'
        'o '
        'p'
        'o'
        'r'
        ': '
        ' '
        'F'
        'R'
        'A'
        'N'
        'C'
        'I'
        'S'
        'C'
        'O '
        'P'
        'A'
        'T'
        'I'
        '�'
        'O '
        'S'
        '�'
        'N'
        'C'
        'H'
        'E'
        'Z '
        ' '
        ' '
        'y '
        ' '
        ' '
        'M'
        'E'
        'R'
        'C'
        'E'
        'D'
        'E'
        'S '
        'S'
        'O'
        'T'
        'O '
        'S'
        'O'
        'L'
        'I'
        '�'
        'O'
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        'D'
        '.'
        'N'
        '.'
        'I'
        '.'
        ': '
        '5'
        '0'
        '0'
        '4'
        '1'
        '7'
        '0'
        '3 '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        ' '
        'D'
        '.'
        'N'
        '.'
        'I'
        '.'
        ': '
        '3'
        '5'
        '2'
        '3'
        '9'
        '9'
        '7'
        '6')
      TabOrder = 12
      Visible = False
    end
    object DBNavigator6: TDBNavigator
      Left = 232
      Top = 24
      Width = 49
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbDelete]
      TabOrder = 13
      OnClick = DBNavigator6Click
    end
    object BOTONNAIPES: TButton
      Left = 272
      Top = 400
      Width = 65
      Height = 25
      Caption = '&Ocultar'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 14
      OnClick = BOTONNAIPESClick
    end
    object imagen: TMemo
      Left = 24
      Top = 352
      Width = 193
      Height = 25
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      Lines.Strings = (
        'Imagen On�rica:')
      ParentFont = False
      TabOrder = 15
      Visible = False
    end
    object interpretacion: TMemo
      Left = 24
      Top = 352
      Width = 313
      Height = 25
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      Lines.Strings = (
        'Significado On�rico:')
      ParentFont = False
      TabOrder = 16
      Visible = False
    end
    object DATOS: TMemo
      Left = -88
      Top = 352
      Width = 481
      Height = 25
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      Lines.Strings = (
        'N�mero(s) de la Suerte:')
      ParentFont = False
      TabOrder = 17
      Visible = False
    end
    object Panel4: TPanel
      Left = 448
      Top = 376
      Width = 153
      Height = 17
      BevelInner = bvLowered
      DragMode = dmAutomatic
      TabOrder = 18
      OnMouseMove = Panel4MouseMove
      object LABEL999: TRzLabel
        Left = 20
        Top = 2
        Width = 42
        Height = 14
        Caption = '22:22:22'
        DragMode = dmAutomatic
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
        OnMouseMove = LABEL999MouseMove
        TextStyle = tsRaised
      end
      object LABEL888: TRzLabel
        Left = 92
        Top = 2
        Width = 46
        Height = 13
        Caption = '22/22/98'
        DragMode = dmAutomatic
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
        OnMouseMove = LABEL888MouseMove
        TextStyle = tsRaised
      end
    end
    object DBNavigator7: TDBNavigator
      Left = 88
      Top = 24
      Width = 49
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbCancel]
      TabOrder = 19
      OnClick = DBNavigator7Click
    end
    object MASCARA: TMemo
      Left = 8
      Top = 88
      Width = 281
      Height = 25
      Ctl3D = True
      DragMode = dmAutomatic
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        '')
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 20
    end
    object MARCO: TmeiBlotter
      Left = 448
      Top = 144
      Width = 153
      Height = 193
      BorderWidth = 8
      DragMode = dmAutomatic
      Color = clGreen
      TabOrder = 21
      object DBImage1: TDBImage
        Left = 8
        Top = 8
        Width = 137
        Height = 177
        Hint = 'Aqu� pegar� los Gr�ficos'
        DataField = 'Gr�fico BMP'
        DataSource = DataSource1
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
        OnClick = DBImage1Click
        OnMouseMove = DBImage1MouseMove
      end
    end
    object FRAN: TPanel
      Left = 8
      Top = 128
      Width = 417
      Height = 265
      BevelInner = bvLowered
      BevelWidth = 2
      DragMode = dmAutomatic
      TabOrder = 22
      OnMouseMove = Panel5MouseMove
      object BOTONCANCELAR: TButton
        Left = 160
        Top = 224
        Width = 97
        Height = 33
        Hint = 'Cancelar Lista'
        Caption = '&Ocultar Lista'
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
        Visible = False
        OnClick = BOTONCANCELARClick
        OnMouseMove = BOTONCANCELARMouseMove
      end
      object DBLOOKUPLISTBOX1: TDBGrid
        Left = 24
        Top = 16
        Width = 369
        Height = 201
        Color = clScrollBar
        Columns = <
          item
            FieldName = 'Imagen On�rica'
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
          end>
        DataSource = DataSource1
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Options = [dgIndicator, dgColumnResize, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnColEnter = DBLOOKUPLISTBOX1ColEnter
        OnColExit = DBLOOKUPLISTBOX1ColExit
        OnColumnMoved = DBLOOKUPLISTBOX1ColumnMoved
        OnDblClick = DBLOOKUPLISTBOX1DblClick
      end
    end
    object Memoayuda: TMemo
      Left = 8
      Top = 128
      Width = 598
      Height = 265
      Color = clScrollBar
      DragMode = dmAutomatic
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (

          'DICCIONARIO DE LOS SUE�OS:  Desde los tiempos m�s antiguos el ho' +
          'mbre sabe que los '

          'sue�os le dicen algo y por eso trata de comprenderlos, interpret' +
          'arlos y hasta buscar se�ales '

          'para tener suerte a trav�s de ellos. Nuestros sue�os son un inst' +
          'rumento �til para saber c�mo '

          'hemos de desarrollar nuestra vida en el momento en que despertem' +
          'os: nos ofrecen consejos, '

          'advertencias, �nimos. Lo �nico que tenemos que hacer es interpre' +
          'tarlos. Para ello est�n los '

          'Diccionarios de los Sue�os, que son la primera gu�a para captar ' +
          'la simbolog�a de un sue�o y '

          'tener un primer indicio de su significado para luego poder profu' +
          'ndizar m�s en �l. '

          'En el Diccionario que te ofrece Soft Magic, se han seleccionado ' +
          'y recopilado los elementos '

          'on�ricos m�s frecuentes que aparecen en nuestros sue�os, su sign' +
          'ificado general y, el n�mero '
        'de la suerte seg�n la c�bala.'
        ''

          'JUEGOS DE AZAR:  Durante miles de a�os, los hombres han descifra' +
          'do cada uno de los '

          's�mbolos que se representan en nuestros sue�os. Y ese significad' +
          'o ha pasado de generaci�n '

          'en generaci�n, hasta nuestros d�as.  Hay que perder el temor a i' +
          'nterpretar los propios sue�os; '

          'ya que sin duda alguna, constituyen una ayuda inestimable a la h' +
          'ora de conocernos a nosotros '

          'mismos, a la vez que nos anuncian acontecimientos futuros. Tambi' +
          '�n y mediante los sue�os de '

          'la suerte podr� usted conocer el n�mero m�gico que se le atribuy' +
          'e a cada imagen on�rica aqu� '

          'expuesta. As� tendr� usted muchas m�s posibilidades de poder gan' +
          'ar alg�n premio importante '
        'en alguno de los muchos juegos de azar que existen.  '

          'Consejo: los practicantes a los juegos de azar y apuestas saben ' +
          'que se debe apostar a un '

          'n�mero basado en un sue�o o p�lpito por lo menos tres veces segu' +
          'idas. ��� Buena Suerte !!!')
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 23
    end
  end
  object Memo1: TMemo
    Left = 624
    Top = 32
    Width = 17
    Height = 25
    Font.Color = clBlack
    Font.Height = -1
    Font.Name = 'Arial'
    Font.Style = []
    Lines.Strings = (
      '.'
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      '.')
    ParentFont = False
    TabOrder = 1
    Visible = False
  end
  object Memo123: TMemo
    Left = 624
    Top = 72
    Width = 17
    Height = 25
    Font.Color = clBlack
    Font.Height = -1
    Font.Name = 'Arial'
    Font.Style = []
    Lines.Strings = (
      '.'
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      '.')
    ParentFont = False
    TabOrder = 2
    Visible = False
  end
  object PANELFRAN2: TMemo
    Left = 16
    Top = 16
    Width = 601
    Height = 425
    Color = clScrollBar
    DragMode = dmAutomatic
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (

        '  Est� usted ejecutando una Versi�n ShareWare (Versi�n Reducida)' +
        ' del programa:'

        '                                                         ONIROMA' +
        'NCIA v2.0'

        '                                                        (Sue�os ' +
        'de la Suerte)'
      ''

        '                                          - Ideal para Probar an' +
        'tes de Comprar -'

        '   En la versi�n reducida todos los botones y campos est�n activ' +
        'ados, excepto el '

        '   campo clave (�ndice) que no est� activado,  as� pues,  No pod' +
        'r� usted  A�ADIR'
      '   m�s significados ni im�genes on�ricas en la Base de Datos. '

        '   Si le gusta el programa y desea la Versi�n Comercial (Program' +
        'a Completo) sin'

        '   limitaci�n alguna y con much�simos m�s significados e im�gene' +
        's on�ricas, '

        '   entonces, deber� de solicitarlo enviando por correo la Hoja d' +
        'e Pedido � puede '
      '   hacerlo m�s r�pido llamando por Tel�fono � enviando un Fax.'
      ''
      '    - Informaci�n y Pedidos a:          SOFT MAGIC'

        '                                                            Dist' +
        'ribuidor comercial:'

        '                                                            FRAN' +
        'CISCO PATI�O S�NCHEZ '

        '                                                            Apar' +
        'tado de Correos, 114'

        '                                                            3608' +
        '0 - PONTEVEDRA'
      ''

        '    - Tel�fono y Fax:  [phone]    ---    Tel�fono M�vil: 93' +
        '9.501.801')
    ParentFont = False
    ReadOnly = True
    TabOrder = 3
  end
  object F3: TButton
    Left = 536
    Top = 392
    Width = 75
    Height = 33
    Hint = 'Haga clic aqu� para empezar'
    Caption = '&Continuar'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = F3Click
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 576
    Top = 312
  end
  object PrintDialog1: TPrintDialog
    Copies = 1
    Left = 512
    Top = 352
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 448
    Top = 272
  end
  object ReplaceDialog1: TReplaceDialog
    Left = 544
    Top = 288
  end
  object Table1: TTable
    Active = True
    Filtered = True
    DatabaseName = 'c:\oniroman'
    IndexFieldNames = 'Imagen On�rica'
    TableName = 'SUE�OS.db'
    Left = 458
    Top = 362
    object Table1ImagenOnrica: TStringField
      FieldName = 'Imagen On�rica'
      Required = True
      Size = 50
    end
    object Table1InterpretacinOnrica: TMemoField
      FieldName = 'Interpretaci�n On�rica'
      BlobType = ftMemo
      Size = 240
    end
    object Table1DatosdeInters: TMemoField
      FieldName = 'Datos de Inter�s'
      BlobType = ftMemo
      Size = 240
    end
    object Table1NdeSuerte: TMemoField
      FieldName = 'N� de Suerte'
      BlobType = ftMemo
      Size = 5
    end
    object Table1NAfn: TMemoField
      FieldName = 'N� Af�n'
      BlobType = ftMemo
      Size = 5
    end
    object Table1GrficoBMP: TGraphicField
      FieldName = 'Gr�fico BMP'
      BlobType = ftGraphic
    end
  end
  object Timer3: TTimer
    OnTimer = Timer3Timer
    Left = 496
    Top = 280
  end
  object Timer4: TTimer
    OnTimer = Timer4Timer
    Left = 552
    Top = 344
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 564
    Top = 252
  end
end