inherited FClientes: TFClientes
  Left = 378
  Top = 210
  ActiveControl = Edit1
  Caption = 'copia'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited CoolForm1: TCoolForm
    Mask2 = {
      3002000020000000010000002100000010020000040000000200000064010000
      030100001A000000020000004E01000003000000170000000300000051010000
      0400000015000000040000005301000005000000130000000500000055010000
      0600000012000000060000005601000007000000100000000700000058010000
      080000000F0000000800000059010000090000000E000000090000005A010000
      0A0000000C0000000A0000005C0100000C0000000B0000000C0000005D010000
      0D0000000A0000000D0000005E0100000E000000090000000E0000005F010000
      1000000008000000100000006001000011000000070000001100000061010000
      1300000006000000130000006201000015000000050000001500000063010000
      18000000040000001800000064010000ED00000005000000ED00000063010000
      F000000006000000F000000062010000F200000007000000F200000061010000
      F400000008000000F400000060010000F500000009000000F50000005F010000
      F70000000A000000F70000005E010000F80000000B000000F80000005D010000
      F90000000C000000F90000005C010000FB0000000E000000FB0000005A010000
      FC0000000F000000FC00000059010000FD00000010000000FD00000058010000
      FE00000012000000FE00000056010000FF00000013000000FF00000055010000
      0001000015000000000100005301000001010000170000000101000051010000
      020100001A000000020100004E01000003010000}
  end
  object Terminal: TLabel [1]
    Left = 72
    Top = 5
    Width = 209
    Height = 20
    Alignment = taCenter
    AutoSize = False
    Caption = 'Fichas de Clientes'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clAqua
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label1: TLabel [2]
    Left = 34
    Top = 41
    Width = 62
    Height = 20
    Caption = '&Buscar:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object SpeedButton1: TSpeedButton [3]
    Left = 329
    Top = 64
    Width = 23
    Height = 22
    Hint = 'Localizar cliente'
    Flat = True
    Glyph.Data = {
      8E030000424D8E03000000000000760000002800000042000000160000000100
      04000000000018030000C40E0000C40E00001000000010000000010102000000
      310039393900000063006F006F006C6C6C00000094000000B5000000E9006A00
      FF006F6FD900800080009400FF00AEAEAE008F8FCF00F3F3F300B2E75BBBBBBB
      BD2A83DBBBBBBBBBBBBBBBBBBBBBBBBBB2E75BBBBBBBBD2A83DBBB000000B170
      000000000036063DBBBBBBBBBBBBBBBBBBBBBBBBB170000000000036063DBB00
      0000B175FFFFFFFFFD365571FBBBBBBBBBBBBBBBBBBBBBBBB175FFFFFFFFFD36
      5571FB000000B0000000000FFD365B571FBBBB000000000000BBBBBBB0000000
      000FFD365B571F0000000FFFFFFFFFF0FD000DB280BBB0DDDDDDDDDDDD0BBBBB
      0FFFFFFFFFF0FD000DB2800000000FDFFFFFDFF0FD5BB5DB28BBB0D000000000
      0DD0BBBB0FDFFFFFDFF0FD5BB5DB280000000FFFFFFFFFF0FD5B50DBB0BBBB0D
      0FFFFFF0B0DD0BBB0FFFFFFFFFF0FD5B50DBB0000000B2FFFFFFFFFF2D5D550D
      BBBBB0000000000F0F0D0BBBB2FFFFFFFFFF2D5D550DBB000000B2FFD2DFD0FF
      00005BB2FBBBB0FFFFFFFFF0F00D0BBBB2FFD2DFD0FF00005BB2FB000000082F
      55FF2FFFF174BD50FBBBBB0F00F00FFF0F0D0BBB082F55FF2FFFF174BD50FB00
      0000800002200500174C60DBBBBBBB0FFFFFFFFF0F0D0BBB800002200500174C
      60DBBB00000082FD25FD2FDD1739B00DBBBBB000FFFFFFFFF0000BBB82FD25FD
      2FDD1739B00DBB00000008000220050001736DF2FBBBB0800F00000F00080BBB
      08000220050001736DF2FB000000BB2F55FF2FFFF0005500FBBBB080FFFFFFFF
      F0080BBBBB2F55FF2FFFF0005500FB000000BB2FD2DFD0FFF2D5FF50FBBBB000
      FFFFFFFFF0F00BBBBB2FD2DFD0FFF2D5FF50FB000000BB2FFFFFFFFFF2D5FFF2
      0FBBBBB0F000F00FF0F0BBBBBB2FFFFFFFFFF2D5FFF20F000000BB2FDDDDDFDF
      F2FD5FFF2FBBBBB0FFFFFFFFF000BBBBBB2FDDDDDFDFF2FD5FFF2F000000BB2F
      FFFFFFFFF2FD00000FBBBBB0FFF0000000BBBBBBBB2FFFFFFFFFF2FD00000F00
      0000BB2FDDDDFFFFF2FD0DBBBBBBBBBB000BBBBBBBBBBBBBBB2FDDDDFFFFF2FD
      0DBBBB000000BB2FDDDDDFFFF2FF5DBBBBBBBBBBBBBBBBBBBBBBBBBBBB2FDDDD
      DFFFF2FF5DBBBB000000BB2FFFFFFFFFF0000DBBBBBBBBBBBBBBBBBBBBBBBBBB
      BB2FFFFFFFFFF0000DBBBB000000BB000000000002BBBBBBBBBBBBBBBBBBBBBB
      BBBBBBBBBB000000000002BBBBBBBB000000}
    NumGlyphs = 3
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton [4]
    Left = 329
    Top = 96
    Width = 23
    Height = 22
    Hint = 'Alta de clientes'
    Flat = True
    Glyph.Data = {
[encoded data, 5680 characters]
      F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F60000}
    NumGlyphs = 3
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton2Click
  end
  object Label2: TLabel [5]
    Left = 34
    Top = 65
    Width = 68
    Height = 20
    Caption = 'Nombre:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label3: TLabel [6]
    Left = 34
    Top = 113
    Width = 28
    Height = 20
    Caption = 'Nif:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label4: TLabel [7]
    Left = 178
    Top = 113
    Width = 31
    Height = 20
    Caption = 'Tlf.:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label5: TLabel [8]
    Left = 34
    Top = 137
    Width = 162
    Height = 20
    Caption = 'Tiempo RESTANTE:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Dig1: TDigitNum [9]
    Left = 44
    Top = 168
    Width = 65
    Height = 55
    Brush.Style = bsClear
    LED_OFF = clBlack
    LED_BRDon = clWhite
    LED_BRDoff = clBlue
    Value = 12
    MaxLength = 2
  end
  object Shape2: TShape [10]
    Left = 109
    Top = 199
    Width = 10
    Height = 10
    Brush.Color = clRed
    Pen.Color = clWhite
    Shape = stCircle
  end
  object Shape1: TShape [11]
    Left = 109
    Top = 178
    Width = 10
    Height = 10
    Brush.Color = clRed
    Pen.Color = clWhite
    Shape = stCircle
  end
  object Dig2: TDigitNum [12]
    Left = 124
    Top = 168
    Width = 65
    Height = 55
    Brush.Style = bsClear
    LED_OFF = clBlack
    LED_BRDon = clWhite
    LED_BRDoff = clBlue
    Value = 12
    MaxLength = 2
  end
  object Label6: TLabel [13]
    Left = 34
    Top = 41
    Width = 148
    Height = 20
    Caption = 'Código de Cliente:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object DBText1: TDBText [14]
    Left = 208
    Top = 40
    Width = 121
    Height = 25
    Alignment = taRightJustify
    DataField = 'CodCliente1'
    DataSource = DsPersonas
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  inherited Button1: TButton
    TabOrder = 9
  end
  object Edit1: TEdit
    Left = 205
    Top = 40
    Width = 121
    Height = 21
    TabOrder = 1
    OnKeyUp = Edit1KeyUp
  end
  object DBGrid1: TDBGrid
    Left = 32
    Top = 64
    Width = 294
    Height = 168
    DataSource = DsPersonas
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
  end
  object SelIndex: TComboBox
    Left = 98
    Top = 40
    Width = 105
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 0
    Text = 'Nombre'
    OnChange = SelIndexChange
    Items.Strings = (
      'CodCliente1'
      'Nombre'
      'Apellidos'
      'Telefono 1')
  end
  object DBEdit1: TDBEdit
    Left = 104
    Top = 64
    Width = 121
    Height = 21
    DataField = 'Nombre'
    DataSource = DsPersonas
    TabOrder = 3
    OnKeyUp = DBEdit1KeyUp
  end
  object DBEdit2: TDBEdit
    Left = 104
    Top = 88
    Width = 217
    Height = 21
    DataField = 'Apellidos'
    DataSource = DsPersonas
    TabOrder = 4
    OnKeyUp = DBEdit2KeyUp
  end
  object DBEdit3: TDBEdit
    Left = 72
    Top = 112
    Width = 97
    Height = 21
    DataField = 'DocumentoDNP'
    DataSource = DsPersonas
    TabOrder = 5
    OnKeyUp = DBEdit3KeyUp
  end
  object DBEdit4: TDBEdit
    Left = 208
    Top = 112
    Width = 113
    Height = 21
    DataField = 'Telefono 1'
    DataSource = DsPersonas
    TabOrder = 6
    OnKeyUp = DBEdit4KeyUp
  end
  object Button2: TButton
    Left = 208
    Top = 138
    Width = 113
    Height = 17
    Caption = '&Comprar Bono'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 208
    Top = 170
    Width = 113
    Height = 47
    Caption = '&USAR BONO'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
    OnClick = Button3Click
  end
  object DsPersonas: TDataSource
    DataSet = CtrlPPal.TbPersonas
    OnDataChange = DsPersonasDataChange
  end
  object TbBonos: TTable
    BeforeOpen = TbBonosBeforeOpen
    TableName = 'datos\bonos.db'
    Top = 232
  end
end
