home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 March / PCWK3A99.iso / Polskie / JaPa / PostBank / PostBank.exe / 0 / RCDATA / TFMAIN / TFMAIN.txt < prev   
Encoding:
Text File  |  1999-01-04  |  77.1 KB  |  3,418 lines

  1. object fMain: TfMain
  2.   Left = 268
  3.   Top = 30
  4.   Width = 799
  5.   Height = 600
  6.   ActiveControl = Button64
  7.   BorderIcons = [biSystemMenu, biMinimize]
  8.   Caption = 
  9.     ' PostBank∩┐╜ - wersja demonstracyjna   ∩┐╜JaPa Software ∩┐╜∩┐╜d∩┐╜  tel. 0' +
  10.     '42/ 650 58 59   e-mail: japasoft@polbox.com'
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   Icon.Data = {<image000.ico>}
  16.   Position = poDefault
  17.   Scaled = False
  18.   OnActivate = FormActivate
  19.   OnClose = FormClose
  20.   OnResize = FormResize
  21.   OnShow = FormShow
  22.   PixelsPerInch = 96
  23.   TextHeight = 13
  24.   object Label73: TLabel
  25.     Left = 500
  26.     Top = 144
  27.     Width = 278
  28.     Height = 29
  29.     Alignment = taRightJustify
  30.     AutoSize = False
  31.     Caption = '-'
  32.     Font.Color = clNavy
  33.     Font.Height = -11
  34.     Font.Name = 'MS Sans Serif'
  35.     Font.Style = [fsBold]
  36.     ParentFont = False
  37.     Transparent = True
  38.   end
  39.   object Label72: TLabel
  40.     Left = 500
  41.     Top = 108
  42.     Width = 278
  43.     Height = 29
  44.     Alignment = taRightJustify
  45.     AutoSize = False
  46.     Caption = '-'
  47.     Font.Color = clNavy
  48.     Font.Height = -11
  49.     Font.Name = 'MS Sans Serif'
  50.     Font.Style = [fsBold]
  51.     ParentFont = False
  52.     Transparent = True
  53.   end
  54.   object Label71: TLabel
  55.     Left = 500
  56.     Top = 88
  57.     Width = 278
  58.     Height = 13
  59.     Alignment = taRightJustify
  60.     AutoSize = False
  61.     Caption = '-'
  62.     Font.Color = clNavy
  63.     Font.Height = -11
  64.     Font.Name = 'MS Sans Serif'
  65.     Font.Style = [fsBold]
  66.     ParentFont = False
  67.     Transparent = True
  68.   end
  69.   object Label75: TLabel
  70.     Left = 108
  71.     Top = 176
  72.     Width = 278
  73.     Height = 13
  74.     Alignment = taRightJustify
  75.     Caption = '-'
  76.     Font.Color = clNavy
  77.     Font.Height = -11
  78.     Font.Name = 'MS Sans Serif'
  79.     Font.Style = [fsBold]
  80.     ParentFont = False
  81.     Transparent = True
  82.   end
  83.   object Label63: TLabel
  84.     Left = 108
  85.     Top = 144
  86.     Width = 278
  87.     Height = 29
  88.     Alignment = taRightJustify
  89.     AutoSize = False
  90.     Caption = '-'
  91.     Font.Color = clNavy
  92.     Font.Height = -11
  93.     Font.Name = 'MS Sans Serif'
  94.     Font.Style = [fsBold]
  95.     ParentFont = False
  96.     Transparent = True
  97.   end
  98.   object Label62: TLabel
  99.     Left = 108
  100.     Top = 108
  101.     Width = 278
  102.     Height = 29
  103.     Alignment = taRightJustify
  104.     AutoSize = False
  105.     Caption = '-'
  106.     Font.Color = clNavy
  107.     Font.Height = -11
  108.     Font.Name = 'MS Sans Serif'
  109.     Font.Style = [fsBold]
  110.     ParentFont = False
  111.     Transparent = True
  112.   end
  113.   object Label61: TLabel
  114.     Left = 108
  115.     Top = 88
  116.     Width = 278
  117.     Height = 13
  118.     Alignment = taRightJustify
  119.     AutoSize = False
  120.     Caption = '-'
  121.     Font.Color = clNavy
  122.     Font.Height = -11
  123.     Font.Name = 'MS Sans Serif'
  124.     Font.Style = [fsBold]
  125.     ParentFont = False
  126.     Transparent = True
  127.   end
  128.   object Label64: TLabel
  129.     Left = 416
  130.     Top = 88
  131.     Width = 44
  132.     Height = 13
  133.     Caption = 'Adresat'
  134.     Font.Color = clBlack
  135.     Font.Height = -11
  136.     Font.Name = 'MS Sans Serif'
  137.     Font.Style = [fsBold]
  138.     ParentFont = False
  139.   end
  140.   object Label65: TLabel
  141.     Left = 416
  142.     Top = 108
  143.     Width = 33
  144.     Height = 13
  145.     Caption = 'Adres'
  146.     Font.Color = clBlack
  147.     Font.Height = -11
  148.     Font.Name = 'MS Sans Serif'
  149.     Font.Style = [fsBold]
  150.     ParentFont = False
  151.   end
  152.   object Label66: TLabel
  153.     Left = 416
  154.     Top = 144
  155.     Width = 78
  156.     Height = 13
  157.     Caption = 'Bank i nr r-ku'
  158.     Font.Color = clBlack
  159.     Font.Height = -11
  160.     Font.Name = 'MS Sans Serif'
  161.     Font.Style = [fsBold]
  162.     ParentFont = False
  163.   end
  164.   object Label67: TLabel
  165.     Left = 20
  166.     Top = 144
  167.     Width = 78
  168.     Height = 13
  169.     Caption = 'Bank i nr r-ku'
  170.     Font.Color = clBlack
  171.     Font.Height = -11
  172.     Font.Name = 'MS Sans Serif'
  173.     Font.Style = [fsBold]
  174.     ParentFont = False
  175.   end
  176.   object Label60: TLabel
  177.     Left = 20
  178.     Top = 108
  179.     Width = 33
  180.     Height = 13
  181.     Caption = 'Adres'
  182.     Font.Color = clBlack
  183.     Font.Height = -11
  184.     Font.Name = 'MS Sans Serif'
  185.     Font.Style = [fsBold]
  186.     ParentFont = False
  187.   end
  188.   object Label59: TLabel
  189.     Left = 20
  190.     Top = 88
  191.     Width = 54
  192.     Height = 13
  193.     Caption = 'Nadawca'
  194.     Font.Color = clBlack
  195.     Font.Height = -11
  196.     Font.Name = 'MS Sans Serif'
  197.     Font.Style = [fsBold]
  198.     ParentFont = False
  199.   end
  200.   object Label23: TLabel
  201.     Left = 416
  202.     Top = 200
  203.     Width = 131
  204.     Height = 13
  205.     Caption = 'Poszukiwany ci∩┐╜g znak∩┐╜w :'
  206.   end
  207.   object Label24: TLabel
  208.     Left = 20
  209.     Top = 200
  210.     Width = 131
  211.     Height = 13
  212.     Caption = 'Poszukiwany ci∩┐╜g znak∩┐╜w :'
  213.   end
  214.   object Label57: TLabel
  215.     Left = 12
  216.     Top = 8
  217.     Width = 66
  218.     Height = 16
  219.     Caption = 'Nadawca'
  220.     Font.Color = clBlack
  221.     Font.Height = -13
  222.     Font.Name = 'MS Sans Serif'
  223.     Font.Style = [fsBold]
  224.     ParentFont = False
  225.   end
  226.   object Label58: TLabel
  227.     Left = 408
  228.     Top = 8
  229.     Width = 55
  230.     Height = 16
  231.     Caption = 'Adresat'
  232.     Font.Color = clBlack
  233.     Font.Height = -13
  234.     Font.Name = 'MS Sans Serif'
  235.     Font.Style = [fsBold]
  236.     ParentFont = False
  237.   end
  238.   object Label76: TLabel
  239.     Left = 20
  240.     Top = 176
  241.     Width = 44
  242.     Height = 13
  243.     Caption = 'Telefon'
  244.     Font.Color = clBlack
  245.     Font.Height = -11
  246.     Font.Name = 'MS Sans Serif'
  247.     Font.Style = [fsBold]
  248.     ParentFont = False
  249.   end
  250.   object Label77: TLabel
  251.     Left = 416
  252.     Top = 176
  253.     Width = 44
  254.     Height = 13
  255.     Caption = 'Telefon'
  256.     Font.Color = clBlack
  257.     Font.Height = -11
  258.     Font.Name = 'MS Sans Serif'
  259.     Font.Style = [fsBold]
  260.     ParentFont = False
  261.   end
  262.   object Label78: TLabel
  263.     Left = 500
  264.     Top = 176
  265.     Width = 278
  266.     Height = 13
  267.     Alignment = taRightJustify
  268.     AutoSize = False
  269.     Caption = '-'
  270.     Font.Color = clNavy
  271.     Font.Height = -11
  272.     Font.Name = 'MS Sans Serif'
  273.     Font.Style = [fsBold]
  274.     ParentFont = False
  275.     Transparent = True
  276.   end
  277.   object Klucz2: TLabel
  278.     Left = 600
  279.     Top = 180
  280.     Width = 32
  281.     Height = 13
  282.     Caption = 'Klucz2'
  283.     Visible = False
  284.   end
  285.   object Klucz1: TLabel
  286.     Left = 204
  287.     Top = 180
  288.     Width = 32
  289.     Height = 13
  290.     Caption = 'Klucz1'
  291.     Visible = False
  292.   end
  293.   object Button64: TButton
  294.     Left = 100
  295.     Top = 4
  296.     Width = 287
  297.     Height = 21
  298.     Caption = 'Zam∩┐╜wienie programu PostBank∩┐╜ e-mail'#39'em'
  299.     Font.Color = clBlack
  300.     Font.Height = -11
  301.     Font.Name = 'MS Sans Serif'
  302.     Font.Style = [fsBold]
  303.     ParentFont = False
  304.     TabOrder = 33
  305.     OnClick = Button64Click
  306.     OnEnter = Button64Enter
  307.     OnExit = Button64Exit
  308.   end
  309.   object RadioGroup1: TRadioGroup
  310.     Left = 8
  311.     Top = 256
  312.     Width = 381
  313.     Height = 285
  314.     Caption = ' Lista druk∩┐╜w  '
  315.     Font.Color = clBlack
  316.     Font.Height = -11
  317.     Font.Name = 'MS Sans Serif'
  318.     Font.Style = []
  319.     Items.Strings = (
  320.       'przelew bankowy'
  321.       'wp∩┐╜ata na konto/druk 3-cz.'
  322.       'wp∩┐╜ata na konto/druk 4-cz.'
  323.       'potw. nadania listu poleconego'
  324.       'pobranie pocztowe - stare'
  325.       'pobranie pocztowe - nowe'
  326.       'koperta A4'
  327.       'koperta A5'
  328.       'koperta A6'
  329.       'koperta C6'
  330.       'paczka'
  331.       'przekaz telegraficzny'
  332.       'przekaz pocztowy'
  333.       'etykieta adresowa')
  334.     ParentFont = False
  335.     TabOrder = 13
  336.     OnClick = RadioGroup1Click
  337.   end
  338.   object Memo3: TMemo
  339.     Left = 112
  340.     Top = 296
  341.     Width = 45
  342.     Height = 21
  343.     Lines.Strings = (
  344.       'Memo3')
  345.     TabOrder = 32
  346.     Visible = False
  347.   end
  348.   object GroupBox3: TGroupBox
  349.     Left = 404
  350.     Top = 256
  351.     Width = 381
  352.     Height = 253
  353.     Caption = ' Dodatkowe dane '
  354.     TabOrder = 14
  355.     object Label10: TLabel
  356.       Left = 12
  357.       Top = 20
  358.       Width = 164
  359.       Height = 13
  360.       Caption = 'Kwota przelewu/przekazu  z∩┐╜otych'
  361.     end
  362.     object Label11: TLabel
  363.       Left = 12
  364.       Top = 40
  365.       Width = 107
  366.       Height = 13
  367.       Caption = 'Tytu∩┐╜ wp∩┐╜aty/przelewu'
  368.     end
  369.     object Label21: TLabel
  370.       Left = 12
  371.       Top = 60
  372.       Width = 84
  373.       Height = 13
  374.       Caption = 'Zawarto∩┐╜∩┐╜ paczki'
  375.     end
  376.     object Label22: TLabel
  377.       Left = 12
  378.       Top = 80
  379.       Width = 112
  380.       Height = 13
  381.       Caption = 'Warto∩┐╜∩┐╜ paczki z∩┐╜otych'
  382.     end
  383.     object Edit10: TEdit
  384.       Left = 204
  385.       Top = 16
  386.       Width = 169
  387.       Height = 21
  388.       Font.Color = clBlack
  389.       Font.Height = -11
  390.       Font.Name = 'MS Sans Serif'
  391.       Font.Style = [fsBold]
  392.       MaxLength = 10
  393.       ParentFont = False
  394.       TabOrder = 0
  395.       Text = '0,00'
  396.       OnEnter = Edit10Enter
  397.       OnExit = Edit10Exit
  398.     end
  399.     object Edit20: TComboBox
  400.       Left = 204
  401.       Top = 36
  402.       Width = 169
  403.       Height = 21
  404.       Font.Color = clBlack
  405.       Font.Height = -11
  406.       Font.Name = 'MS Sans Serif'
  407.       Font.Style = [fsBold]
  408.       ItemHeight = 13
  409.       MaxLength = 25
  410.       ParentFont = False
  411.       TabOrder = 2
  412.       OnEnter = Edit20Enter
  413.       OnExit = Edit20Exit
  414.     end
  415.     object Edit21: TComboBox
  416.       Left = 204
  417.       Top = 56
  418.       Width = 169
  419.       Height = 21
  420.       Font.Color = clBlack
  421.       Font.Height = -11
  422.       Font.Name = 'MS Sans Serif'
  423.       Font.Style = [fsBold]
  424.       ItemHeight = 13
  425.       MaxLength = 25
  426.       ParentFont = False
  427.       TabOrder = 4
  428.       OnEnter = Edit21Enter
  429.       OnExit = Edit21Exit
  430.     end
  431.     object Edit22: TEdit
  432.       Left = 204
  433.       Top = 76
  434.       Width = 169
  435.       Height = 21
  436.       Font.Color = clBlack
  437.       Font.Height = -11
  438.       Font.Name = 'MS Sans Serif'
  439.       Font.Style = [fsBold]
  440.       MaxLength = 10
  441.       ParentFont = False
  442.       TabOrder = 5
  443.       Text = '0,00'
  444.       OnEnter = Edit22Enter
  445.       OnExit = Edit22Exit
  446.     end
  447.     object b_plus1: TButton
  448.       Left = 184
  449.       Top = 40
  450.       Width = 17
  451.       Height = 17
  452.       Caption = '...'
  453.       TabOrder = 1
  454.       OnClick = b_plus1Click
  455.     end
  456.     object b_plus2: TButton
  457.       Left = 184
  458.       Top = 60
  459.       Width = 17
  460.       Height = 17
  461.       Caption = '...'
  462.       TabOrder = 3
  463.       OnClick = b_plus2Click
  464.     end
  465.   end
  466.   object p_ksiazka_nadawcza: TPanel
  467.     Left = 404
  468.     Top = 360
  469.     Width = 381
  470.     Height = 149
  471.     BevelInner = bvRaised
  472.     BevelOuter = bvLowered
  473.     TabOrder = 15
  474.     object Label85: TLabel
  475.       Left = 20
  476.       Top = 5
  477.       Width = 353
  478.       Height = 13
  479.       Alignment = taCenter
  480.       AutoSize = False
  481.       Caption = 'Pocztowa Ksi∩┐╜∩┐╜ka Nadawcza'
  482.       Font.Color = clPurple
  483.       Font.Height = -11
  484.       Font.Name = 'MS Sans Serif'
  485.       Font.Style = [fsBold]
  486.       ParentFont = False
  487.       Transparent = True
  488.     end
  489.     object Label29: TLabel
  490.       Left = 12
  491.       Top = 20
  492.       Width = 133
  493.       Height = 13
  494.       Alignment = taCenter
  495.       AutoSize = False
  496.       Caption = 'Adresat'
  497.       Font.Color = clPurple
  498.       Font.Height = -11
  499.       Font.Name = 'MS Sans Serif'
  500.       Font.Style = []
  501.       ParentFont = False
  502.     end
  503.     object Label86: TLabel
  504.       Left = 252
  505.       Top = 20
  506.       Width = 57
  507.       Height = 13
  508.       Alignment = taCenter
  509.       AutoSize = False
  510.       Caption = 'Warto∩┐╜∩┐╜'
  511.       Font.Color = clPurple
  512.       Font.Height = -11
  513.       Font.Name = 'MS Sans Serif'
  514.       Font.Style = []
  515.       ParentFont = False
  516.     end
  517.     object Label87: TLabel
  518.       Left = 312
  519.       Top = 20
  520.       Width = 61
  521.       Height = 13
  522.       Alignment = taCenter
  523.       AutoSize = False
  524.       Caption = 'Pobranie'
  525.       Font.Color = clPurple
  526.       Font.Height = -11
  527.       Font.Name = 'MS Sans Serif'
  528.       Font.Style = []
  529.       ParentFont = False
  530.     end
  531.     object Label88: TLabel
  532.       Left = 152
  533.       Top = 20
  534.       Width = 93
  535.       Height = 13
  536.       Alignment = taCenter
  537.       AutoSize = False
  538.       Caption = 'Miejscowo∩┐╜∩┐╜'
  539.       Font.Color = clPurple
  540.       Font.Height = -11
  541.       Font.Name = 'MS Sans Serif'
  542.       Font.Style = []
  543.       ParentFont = False
  544.     end
  545.     object ListPobranie: TListBox
  546.       Left = 312
  547.       Top = 36
  548.       Width = 61
  549.       Height = 73
  550.       TabStop = False
  551.       ItemHeight = 13
  552.       TabOrder = 3
  553.     end
  554.     object ListWartosc: TListBox
  555.       Left = 248
  556.       Top = 36
  557.       Width = 65
  558.       Height = 73
  559.       TabStop = False
  560.       ItemHeight = 13
  561.       TabOrder = 2
  562.     end
  563.     object ListAdres: TListBox
  564.       Left = 148
  565.       Top = 36
  566.       Width = 101
  567.       Height = 73
  568.       TabStop = False
  569.       ItemHeight = 13
  570.       TabOrder = 1
  571.     end
  572.     object ListName: TListBox
  573.       Left = 8
  574.       Top = 36
  575.       Width = 141
  576.       Height = 73
  577.       TabStop = False
  578.       ItemHeight = 13
  579.       TabOrder = 0
  580.     end
  581.     object b_ksiazka: TButton
  582.       Left = 8
  583.       Top = 116
  584.       Width = 141
  585.       Height = 25
  586.       Caption = 'Dopisanie do Ksi∩┐╜∩┐╜ki'
  587.       TabOrder = 4
  588.       OnClick = b_ksiazkaClick
  589.     end
  590.     object b_pokaz: TButton
  591.       Left = 148
  592.       Top = 116
  593.       Width = 101
  594.       Height = 25
  595.       Caption = 'Druk Ksi∩┐╜∩┐╜ki'
  596.       TabOrder = 5
  597.       OnClick = b_pokazClick
  598.     end
  599.     object b_clear: TButton
  600.       Left = 248
  601.       Top = 116
  602.       Width = 125
  603.       Height = 25
  604.       Caption = 'Kasowanie zawarto∩┐╜ci'
  605.       TabOrder = 6
  606.       OnClick = b_clearClick
  607.     end
  608.   end
  609.   object Panel2: TPanel
  610.     Left = 200
  611.     Top = 264
  612.     Width = 185
  613.     Height = 273
  614.     BevelOuter = bvNone
  615.     Color = clWhite
  616.     TabOrder = 29
  617.     object Image1: TImage
  618.       Left = 4
  619.       Top = 4
  620.       Width = 177
  621.       Height = 265
  622.       Center = True
  623.       Picture.Data = {<image001.bmp>}
  624.     end
  625.   end
  626.   object Button13: TButton
  627.     Left = 404
  628.     Top = 56
  629.     Width = 381
  630.     Height = 25
  631.     Caption = 'Dodaj - usu∩┐╜ - zmie∩┐╜ wpis w Bazie adresat∩┐╜w'
  632.     TabOrder = 8
  633.     OnClick = Button13Click
  634.   end
  635.   object Lista_adresatow: TComboBox
  636.     Left = 404
  637.     Top = 28
  638.     Width = 381
  639.     Height = 24
  640.     Style = csDropDownList
  641.     Color = clMaroon
  642.     DropDownCount = 30
  643.     Font.Color = clYellow
  644.     Font.Height = -13
  645.     Font.Name = 'MS Sans Serif'
  646.     Font.Style = [fsBold]
  647.     ItemHeight = 16
  648.     MaxLength = 80
  649.     ParentFont = False
  650.     TabOrder = 7
  651.     OnChange = Lista_adresatowChange
  652.     OnClick = Lista_adresatowChange
  653.     OnEnter = Lista_adresatowEnter
  654.   end
  655.   object Lista_nadawcow: TComboBox
  656.     Left = 8
  657.     Top = 28
  658.     Width = 381
  659.     Height = 24
  660.     Style = csDropDownList
  661.     Color = clTeal
  662.     DropDownCount = 30
  663.     Font.Color = clYellow
  664.     Font.Height = -13
  665.     Font.Name = 'MS Sans Serif'
  666.     Font.Style = [fsBold]
  667.     ItemHeight = 16
  668.     MaxLength = 80
  669.     ParentFont = False
  670.     TabOrder = 0
  671.     OnClick = Lista_nadawcowChange
  672.     OnEnter = Lista_nadawcowEnter
  673.   end
  674.   object Button12: TButton
  675.     Left = 8
  676.     Top = 56
  677.     Width = 381
  678.     Height = 25
  679.     Caption = 'Dodaj - usu∩┐╜ - zmie∩┐╜ wpis w Bazie nadawc∩┐╜w'
  680.     Font.Color = clBlack
  681.     Font.Height = -11
  682.     Font.Name = 'MS Sans Serif'
  683.     Font.Style = []
  684.     ParentFont = False
  685.     TabOrder = 1
  686.     OnClick = Button12Click
  687.   end
  688.   object b_drukuj1: TButton
  689.     Left = 8
  690.     Top = 548
  691.     Width = 126
  692.     Height = 25
  693.     Caption = 'Drukowanie bez druku'
  694.     Enabled = False
  695.     TabOrder = 17
  696.     OnClick = b_drukuj1Click
  697.   end
  698.   object b_drukuj2: TButton
  699.     Left = 133
  700.     Top = 548
  701.     Width = 130
  702.     Height = 25
  703.     Caption = 'Drukowanie na druku'
  704.     TabOrder = 18
  705.     OnClick = b_drukuj2Click
  706.   end
  707.   object ciag_2: TEdit
  708.     Left = 556
  709.     Top = 196
  710.     Width = 133
  711.     Height = 21
  712.     TabStop = False
  713.     MaxLength = 30
  714.     TabOrder = 9
  715.     OnEnter = ciag_2Enter
  716.     OnExit = ciag_2Exit
  717.   end
  718.   object ciag_1: TEdit
  719.     Left = 160
  720.     Top = 196
  721.     Width = 133
  722.     Height = 21
  723.     TabStop = False
  724.     MaxLength = 30
  725.     TabOrder = 2
  726.     OnEnter = ciag_1Enter
  727.     OnExit = ciag_1Exit
  728.   end
  729.   object b_szukaj1: TButton
  730.     Left = 300
  731.     Top = 196
  732.     Width = 89
  733.     Height = 21
  734.     Caption = 'Szukaj'
  735.     TabOrder = 3
  736.     TabStop = False
  737.     OnClick = b_szukaj1Click
  738.   end
  739.   object b_szukaj2: TButton
  740.     Left = 696
  741.     Top = 196
  742.     Width = 89
  743.     Height = 21
  744.     Caption = 'Szukaj'
  745.     TabOrder = 10
  746.     TabStop = False
  747.     OnClick = b_szukaj2Click
  748.   end
  749.   object find1: TComboBox
  750.     Left = 8
  751.     Top = 224
  752.     Width = 381
  753.     Height = 24
  754.     TabStop = False
  755.     Style = csDropDownList
  756.     Color = clTeal
  757.     DropDownCount = 13
  758.     Font.Color = clYellow
  759.     Font.Height = -13
  760.     Font.Name = 'MS Sans Serif'
  761.     Font.Style = [fsBold]
  762.     ItemHeight = 16
  763.     MaxLength = 80
  764.     ParentFont = False
  765.     Sorted = True
  766.     TabOrder = 11
  767.     OnChange = find1Change
  768.   end
  769.   object find2: TComboBox
  770.     Left = 404
  771.     Top = 224
  772.     Width = 381
  773.     Height = 24
  774.     TabStop = False
  775.     Style = csDropDownList
  776.     Color = clMaroon
  777.     DropDownCount = 13
  778.     Font.Color = clYellow
  779.     Font.Height = -13
  780.     Font.Name = 'MS Sans Serif'
  781.     Font.Style = [fsBold]
  782.     ItemHeight = 16
  783.     MaxLength = 80
  784.     ParentFont = False
  785.     Sorted = True
  786.     TabOrder = 12
  787.     OnChange = find2Change
  788.   end
  789.   object b_odwrotny: TButton
  790.     Left = 262
  791.     Top = 548
  792.     Width = 99
  793.     Height = 25
  794.     Caption = 'Druk odwrotny'
  795.     TabOrder = 19
  796.     OnClick = b_odwrotnyClick
  797.   end
  798.   object p_opcje: TPanel
  799.     Left = 484
  800.     Top = 88
  801.     Width = 165
  802.     Height = 45
  803.     BevelOuter = bvNone
  804.     TabOrder = 24
  805.     Visible = False
  806.     object Label28: TLabel
  807.       Left = 28
  808.       Top = 20
  809.       Width = 127
  810.       Height = 20
  811.       Caption = 'Panel ustawie∩┐╜'
  812.       Font.Color = clBlack
  813.       Font.Height = -16
  814.       Font.Name = 'MS Sans Serif'
  815.       Font.Style = [fsBold]
  816.       ParentFont = False
  817.     end
  818.     object Drukarka: TRadioGroup
  819.       Left = 24
  820.       Top = 48
  821.       Width = 141
  822.       Height = 105
  823.       Caption = ' Wybierz rodzaj drukarki '
  824.       ItemIndex = 1
  825.       Items.Strings = (
  826.         'ig∩┐╜owa'
  827.         'atramentowa'
  828.         'laserowa')
  829.       TabOrder = 0
  830.     end
  831.     object MultiLineBtn1: TMultiLineBtn
  832.       Left = 24
  833.       Top = 176
  834.       Width = 141
  835.       Height = 25
  836.       Caption = 'Ustawienia drukarki'
  837.       TabOrder = 1
  838.       OnClick = MultiLineBtn1Click
  839.     end
  840.     object Button2: TButton
  841.       Left = 24
  842.       Top = 220
  843.       Width = 141
  844.       Height = 25
  845.       Caption = 'Zamknij panel ustawie∩┐╜'
  846.       TabOrder = 2
  847.       OnClick = Button2Click
  848.     end
  849.   end
  850.   object b_drukuj_seria: TButton
  851.     Left = 360
  852.     Top = 548
  853.     Width = 181
  854.     Height = 25
  855.     Caption = 'Lista druku seryjnego'
  856.     TabOrder = 20
  857.     OnClick = b_drukuj_seriaClick
  858.   end
  859.   object b_urzedy: TButton
  860.     Left = 544
  861.     Top = 4
  862.     Width = 81
  863.     Height = 21
  864.     Caption = 'Urz∩┐╜dy'
  865.     Font.Color = clBlack
  866.     Font.Height = -11
  867.     Font.Name = 'MS Sans Serif'
  868.     Font.Style = [fsBold]
  869.     ParentFont = False
  870.     TabOrder = 4
  871.     OnClick = b_urzedyClick
  872.   end
  873.   object b_opcje: TButton
  874.     Left = 540
  875.     Top = 548
  876.     Width = 137
  877.     Height = 25
  878.     Caption = 'Drukarka'
  879.     TabOrder = 21
  880.     TabStop = False
  881.     OnClick = b_opcjeClick
  882.   end
  883.   object b_zamknij: TButton
  884.     Left = 676
  885.     Top = 548
  886.     Width = 109
  887.     Height = 25
  888.     Caption = 'Zamknij'
  889.     TabOrder = 22
  890.     OnClick = b_zamknijClick
  891.   end
  892.   object b_firmy: TButton
  893.     Left = 624
  894.     Top = 4
  895.     Width = 81
  896.     Height = 21
  897.     Caption = 'Firmy'
  898.     TabOrder = 5
  899.     OnClick = b_firmyClick
  900.   end
  901.   object b_prywatne: TButton
  902.     Left = 704
  903.     Top = 4
  904.     Width = 81
  905.     Height = 21
  906.     Caption = 'Prywatne'
  907.     Font.Color = clBlack
  908.     Font.Height = -11
  909.     Font.Name = 'MS Sans Serif'
  910.     Font.Style = []
  911.     ParentFont = False
  912.     TabOrder = 6
  913.     OnClick = b_prywatneClick
  914.   end
  915.   object Memo2: TMemo
  916.     Left = 200
  917.     Top = 261
  918.     Width = 189
  919.     Height = 280
  920.     TabStop = False
  921.     Alignment = taCenter
  922.     Lines.Strings = (
  923.       'PostBank∩┐╜'
  924.       'JaPa Software ∩┐╜∩┐╜d∩┐╜'
  925.       'tel. 042/ 650 58 59'
  926.       'e-mail:japasoft@polbox.com'
  927.       '==========================='
  928.       'PostBank∩┐╜ - to program do '
  929.       'adresowania kopert, etykiet '
  930.       'adresowych, wype∩┐╜niania wszelkich '
  931.       'druk∩┐╜w pocztowych i bankowych '
  932.       'oraz prowadzenia Bazy '
  933.       'teleadresowej. Pozwala na '
  934.       'uporz∩┐╜dkowanie ca∩┐╜ej '
  935.       'korespondencji wychodz∩┐╜cej z '
  936.       'firmy, biura lub domu. Prostota '
  937.       'obs∩┐╜ugi - to co∩┐╜ co wyr∩┐╜nia ten '
  938.       'program. Kontrolowanie '
  939.       'poprawno∩┐╜ci pocztowych numer∩┐╜w '
  940.       'adresowych (kod∩┐╜w), pozwoli na '
  941.       'bezb∩┐╜∩┐╜dne adresowanie przesy∩┐╜ek - '
  942.       'a co za tym idzie - na szybsze jej '
  943.       'dostarczenie do adresata. Program '
  944.       'obs∩┐╜uguje drukowanie seryjne, np. '
  945.       'etykiet adresowych, kopert i innych. '
  946.       'Jest przeznaczony do pracy w '
  947.       'rozdzielczo∩┐╜ci min. 800x600. '
  948.       'Wsp∩┐╜pracuje z drukarkami '
  949.       'atramentowymi i laserowymi. Jest '
  950.       'przystosowany do nowego podzia∩┐╜u '
  951.       'terytorialnego kraju. '
  952.       '"Przygotowany" na rok 2000 - '
  953.       'zapewnia bezb∩┐╜∩┐╜dn∩┐╜ prac∩┐╜ po '
  954.       'wkroczeniu w nowe tysi∩┐╜clecie. '
  955.       'Wsp∩┐╜pracuje z naszymi '
  956.       'programami ksi∩┐╜gowymi. '
  957.       'Cena pe∩┐╜nej wersji programu to '
  958.       'tylko'
  959.       '69,00 z∩┐╜ z VAT.'
  960.       'Prezent !!! Do ka∩┐╜dego programu '
  961.       'jest dodawana nieodp∩┐╜atnie '
  962.       'Ksi∩┐╜∩┐╜ka Kodowa: Polska.'
  963.       'Wystawiamy faktury VAT.'
  964.       '==========================='
  965.       'Inne opcje programu (np. dla '
  966.       'drukarek ig∩┐╜owych, z inn∩┐╜ ksi∩┐╜∩┐╜k∩┐╜ '
  967.       'kodow∩┐╜ itd.) - po uzgodnieniu '
  968.       'telefonicznym lub mail'#39'owym.'
  969.       'W ofercie posiadamy aktualnie '
  970.       'Ksi∩┐╜∩┐╜ki Kodowe : Czechy, '
  971.       'Szwajcaria, Dania, Rumunia, '
  972.       'Bu∩┐╜garia, Holandia, Chorwacja, '
  973.       'S∩┐╜owenia, W∩┐╜ochy, Australia (cena '
  974.       'jednostkowa 19,00 z∩┐╜ z VAT). '
  975.       'Uwaga! Oferta specjalna dla '
  976.       'klient∩┐╜w zamawiaj∩┐╜cych wersj∩┐╜ ze '
  977.       'wszystkimi ksi∩┐╜∩┐╜kami kodowymi: '
  978.       '99,00 z∩┐╜ z VAT.'
  979.       ''
  980.       'INSTRUKCJA OBS∩┐╜UGI'
  981.       ''
  982.       '1. Dodawanie nadawcy :'
  983.       '- nacisn∩┐╜∩┐╜ "Dodaj - Usu∩┐╜ ..." po '
  984.       'stronie: Nadawca;'
  985.       '- w nowo otwartym okienku '
  986.       'nacisn∩┐╜∩┐╜ "Nowy";'
  987.       '- wype∩┐╜ni∩┐╜ kolejne rubryki;'
  988.       '- nacisn∩┐╜∩┐╜ "Dodaj do rejestru '
  989.       'nadawc∩┐╜w";'
  990.       '- zamkn∩┐╜∩┐╜ okienko naciskaj∩┐╜c '
  991.       '"Powr∩┐╜t".'
  992.       ''
  993.       '2. Dodawanie adresata :'
  994.       '- nacisn∩┐╜∩┐╜ "Dodaj - Usu∩┐╜ ..." po '
  995.       'stronie: Adresat;'
  996.       '- w nowo otwartym okienku '
  997.       'nacisn∩┐╜∩┐╜ "Nowy";'
  998.       '- wype∩┐╜ni∩┐╜ kolejne rubryki;'
  999.       '- nacisn∩┐╜∩┐╜ "Dodaj do rejestru '
  1000.       'adresat∩┐╜w";'
  1001.       '- wybra∩┐╜ grup∩┐╜, w kt∩┐╜rej dokonany '
  1002.       'wpis b∩┐╜dzie przechowywany '
  1003.       '(mo∩┐╜na doda∩┐╜ tego samego '
  1004.       'adresata do wszystkich grup '
  1005.       'naciskaj∩┐╜c ponownie "Dodaj do '
  1006.       'rejestru ..." i wybieraj∩┐╜c inn∩┐╜ grup∩┐╜);'
  1007.       '- zamkn∩┐╜∩┐╜ okienko naciskaj∩┐╜c '
  1008.       '"Powr∩┐╜t".'
  1009.       ''
  1010.       '3. Aby wybra∩┐╜ ∩┐╜∩┐╜danego Nadawc∩┐╜ '
  1011.       'nale∩┐╜y wybra∩┐╜ go z listy : '
  1012.       '"Nadawca". Po wybraniu '
  1013.       'odpowiednie rubryki (Nadawca, '
  1014.       'Adres ...) powinny zosta∩┐╜ '
  1015.       'wype∩┐╜nione.'
  1016.       ''
  1017.       '4. Aby wybra∩┐╜ ∩┐╜∩┐╜danego Adresata '
  1018.       'nale∩┐╜y nacisn∩┐╜∩┐╜ przycisk '
  1019.       'odpowiadaj∩┐╜cy grupie, z kt∩┐╜rej '
  1020.       'chcemy pobra∩┐╜ dane adresata, a '
  1021.       'nast∩┐╜pnie wybra∩┐╜ go z listy : '
  1022.       '"Adresat". Po wybraniu - '
  1023.       'odpowiednie rubryki (Nadawca, '
  1024.       'Adres ...) powinny zosta∩┐╜ '
  1025.       'wype∩┐╜nione (program domy∩┐╜lnie po '
  1026.       'uruchomieniu wczytuje grup∩┐╜: '
  1027.       '"Prywatne", co jest uwidocznione '
  1028.       'poprzez pogrubienie napisu na '
  1029.       'okre∩┐╜lonym klawiszu).'
  1030.       ''
  1031.       '5. Zmiany w adresie nadawcy lub '
  1032.       'adresata.'
  1033.       'Aby tego dokona∩┐╜ nale∩┐╜y po '
  1034.       'wybraniu ∩┐╜∩┐╜danego '
  1035.       'Nadawcy/Adresata nacisn∩┐╜∩┐╜ '
  1036.       '"Dodaj - Usu∩┐╜ ..." i po '
  1037.       'wprowadzeniu odpowiednich zmian '
  1038.       'nacisn∩┐╜∩┐╜ "Zapisz zmiany".'
  1039.       ''
  1040.       '6. Wyszukiwanie '
  1041.       'nadawcy/adresata wg okre∩┐╜lonego '
  1042.       'ci∩┐╜gu znak∩┐╜w.'
  1043.       'Procedur∩┐╜ wyszukiwania nale∩┐╜y '
  1044.       'zacz∩┐╜∩┐╜ od wpisania w pole '
  1045.       '"Poszukiwany ci∩┐╜g znak∩┐╜w": '
  1046.       'klucza, wg kt∩┐╜rego program ma '
  1047.       'wyszuka∩┐╜ Nadawc∩┐╜/Adresata '
  1048.       '(Uwaga! Wa∩┐╜na jest wielko∩┐╜∩┐╜ '
  1049.       'wprowadzanych liter). Kluczem tym '
  1050.       'mo∩┐╜e by∩┐╜ dowolny ci∩┐╜g znak∩┐╜w '
  1051.       '(np. Wars). Po naci∩┐╜ni∩┐╜ciu "Szukaj" '
  1052.       '- program odnajdzie ∩┐╜∩┐╜dane adresy '
  1053.       'zawieraj∩┐╜ce ci∩┐╜g liter: Wars (np. '
  1054.       'adresy zawieraj∩┐╜ce : miasto '
  1055.       'Warszawa, ulica Warszawska lub '
  1056.       'firm∩┐╜ o nazwie Wars). Nale∩┐╜y przy '
  1057.       'tym pami∩┐╜ta∩┐╜, i∩┐╜ w przypadku '
  1058.       'adresat∩┐╜w program dokonuje '
  1059.       'przeszukania tylko w aktywnej '
  1060.       'grupie (np. "Prywatne"). Znaleziona '
  1061.       'lista nadawc∩┐╜w/adresat∩┐╜w zostanie '
  1062.       'wczytana do listy poni∩┐╜ej klawisza '
  1063.       '"Szukaj". Wykaz znalezionych '
  1064.       'adresat∩┐╜w zostaje r∩┐╜wnie∩┐╜ '
  1065.       'automatycznie zapisany na li∩┐╜cie '
  1066.       '"Drukowania seryjnego".'
  1067.       ''
  1068.       '7. Adresowanie.'
  1069.       'Po wybraniu (z listy) nadawcy '
  1070.       'przesy∩┐╜ki, nale∩┐╜y wybra∩┐╜ adresata '
  1071.       'oraz zaznaczy∩┐╜, jakiego typu '
  1072.       'blankiet lub koperta b∩┐╜dzie '
  1073.       'wype∩┐╜niany. W tym okienku pojawi '
  1074.       'si∩┐╜ w∩┐╜wczas schematyczny rysunek '
  1075.       'blankietu wraz z opisem sposobu '
  1076.       'podawania go do '
  1077.       'drukarki.Poniewa∩┐╜ na niekt∩┐╜rych '
  1078.       'formularzach konieczne jest '
  1079.       'umieszczenie dodatkowych danych '
  1080.       'mo∩┐╜na je okre∩┐╜li∩┐╜ wykorzystuj∩┐╜c '
  1081.       'przeznaczone do tego pola. Wpisa∩┐╜ '
  1082.       'tu mo∩┐╜emy:'
  1083.       '-kwot∩┐╜ przelewu lub przekazu '
  1084.       'cyframi (w druku pojawi si∩┐╜ ona '
  1085.       'r∩┐╜wnie∩┐╜ w postaci s∩┐╜ownej),'
  1086.       '-tytu∩┐╜ wp∩┐╜aty b∩┐╜d∩┐╜ przelewu na '
  1087.       'konto (po klikni∩┐╜ciu na odpowiedni  '
  1088.       'kwadracik z wielokropkiem mo∩┐╜emy '
  1089.       'uzupe∩┐╜nia∩┐╜ wpisy dodatkowego '
  1090.       'okienka, aby p∩┐╜niej korzysta∩┐╜ z '
  1091.       'niego rozwijaj∩┐╜c utworzon∩┐╜ w ten '
  1092.       'spos∩┐╜b list∩┐╜ tytu∩┐╜∩┐╜w),'
  1093.       '-zawarto∩┐╜∩┐╜ paczki tworz∩┐╜c '
  1094.       'analogicznie jak poprzednio wykaz '
  1095.       'towar∩┐╜w w postaci listy do '
  1096.       'rozwini∩┐╜cia,'
  1097.       '-warto∩┐╜∩┐╜ paczki cyframi '
  1098.       '(wydrukowana ona zostanie '
  1099.       'rownie∩┐╜ s∩┐╜ownie).'
  1100.       'Po uzupe∩┐╜nieniu powy∩┐╜szych '
  1101.       'danych nale∩┐╜y w∩┐╜o∩┐╜y∩┐╜ do drukarki '
  1102.       'odpowiedni typ druku lub koperty i '
  1103.       'nacisn∩┐╜∩┐╜ "Drukowanie na druku". '
  1104.       'Je∩┐╜eli nie posiadamy okre∩┐╜lonego '
  1105.       'typu blankietu potrzebny formularz '
  1106.       'wype∩┐╜niony okre∩┐╜lonymi wcze∩┐╜niej '
  1107.       'danymi otrzymamy po naci∩┐╜ni∩┐╜ciu '
  1108.       '"Drukowanie bez druku" i podaniu '
  1109.       'do drukarki czystej kartki '
  1110.       'odpowiedniego formatu. Niniejszy '
  1111.       'program umo∩┐╜liwia wydrukowanie '
  1112.       'wi∩┐╜kszej ilo∩┐╜ci kopert lub blankiet∩┐╜w '
  1113.       'jednego typu (oczywi∩┐╜cie z r∩┐╜nymi '
  1114.       'adresatami przy zachowaniu '
  1115.       'niezmienno∩┐╜ci pozosta∩┐╜ych wpis∩┐╜w) '
  1116.       'za pomoc∩┐╜ pojedynczej komendy. '
  1117.       'S∩┐╜u∩┐╜y do tego klawisz "Lista druku '
  1118.       'seryjnego". Po jego naci∩┐╜ni∩┐╜ciu '
  1119.       'otwiera si∩┐╜ okno, z kt∩┐╜rego '
  1120.       'wybieramy zgodnie ze '
  1121.       'wskaz∩┐╜wkami dowoln∩┐╜ ilo∩┐╜∩┐╜ '
  1122.       'adresat∩┐╜w (funkcjonuj∩┐╜ce tu listy '
  1123.       'adresat∩┐╜w "prywatnych", '
  1124.       '"urz∩┐╜dowych" i "firmowych" s∩┐╜ od '
  1125.       'siebie ca∩┐╜kowicie niezale∩┐╜ne). '
  1126.       'Klikni∩┐╜cie na klawisz "Drukowanie '
  1127.       'seryjne" uruchamia proces '
  1128.       'drukowania zaordynowanej ilo∩┐╜ci '
  1129.       'kopert lub blankiet∩┐╜w. Dotyczy to '
  1130.       'r∩┐╜wnie∩┐╜ druku seryjnego etykiet '
  1131.       '(naklejek) adresowych. W '
  1132.       'przypadku drukowania '
  1133.       'pojedynczych etykiet korzystamy z '
  1134.       'dodatkowego okienka otwieranego '
  1135.       'przy wyborze rodzaju druku '
  1136.       '("etykieta adresowa"). Ukazuje nam '
  1137.       'si∩┐╜ wtedy uk∩┐╜ad etykiet na arkuszu, '
  1138.       'z kt∩┐╜rego wybieramy jak∩┐╜∩┐╜ pozycj∩┐╜. '
  1139.       'Pozwala to wykorzysta∩┐╜ pozosta∩┐╜e '
  1140.       'jeszcze naklejki na u∩┐╜ywanych '
  1141.       'wcze∩┐╜niej arkuszach. W pe∩┐╜nej '
  1142.       'wersji program obs∩┐╜uguje kilka '
  1143.       'r∩┐╜nych format∩┐╜w etykiet '
  1144.       'adresowych. Przydatna w wielu '
  1145.       'firmach oka∩┐╜e si∩┐╜ zapewne funkcja '
  1146.       '"drukowania odwrotnego". '
  1147.       'Oznacza ona zamian∩┐╜ adres∩┐╜w '
  1148.       'nadawcy i adresata na wydrukach. '
  1149.       'Cz∩┐╜sto w celu u∩┐╜atwienia klientom '
  1150.       'dokonania czynno∩┐╜ci wysy∩┐╜kowych '
  1151.       'lub p∩┐╜atniczych na nasz∩┐╜ rzecz '
  1152.       'do∩┐╜∩┐╜czamy do przesy∩┐╜ek koperty '
  1153.       'zwrotne, wype∩┐╜nione blankiety itp. '
  1154.       'Mo∩┐╜emy je z ∩┐╜atwo∩┐╜ci∩┐╜ '
  1155.       'wydrukowa∩┐╜, bez dokonywania '
  1156.       'ponownych wpis∩┐╜w, klikaj∩┐╜c na '
  1157.       'klawisz "Druk odwrotny".'
  1158.       ''
  1159.       '8. Ksi∩┐╜∩┐╜ka Nadawcza.'
  1160.       'W trakcie adresowania mo∩┐╜na '
  1161.       'wybranego adresata b∩┐╜d∩┐╜ ca∩┐╜∩┐╜ ich '
  1162.       'list∩┐╜ (w przypadku druku seryjnego) '
  1163.       'doda∩┐╜ do Ksi∩┐╜∩┐╜ki Nadawczej bez '
  1164.       'konieczno∩┐╜ci jej posiadania. '
  1165.       'Program wydrukuje stron∩┐╜ Ksi∩┐╜∩┐╜ki w '
  1166.       'jej oryginalnym kszta∩┐╜cie wraz z '
  1167.       'wype∩┐╜nionymi rubrykami. Nale∩┐╜y '
  1168.       'pami∩┐╜ta∩┐╜, i∩┐╜ strona Ksi∩┐╜∩┐╜ki '
  1169.       'Nadawczej musi by∩┐╜ wydrukowana '
  1170.       'w 2 egzemplarzach. W tym celu '
  1171.       'nale∩┐╜y w∩┐╜o∩┐╜y∩┐╜ do drukarki arkusz '
  1172.       'papieru A4 i po wydrukowaniu '
  1173.       'jednej strony mo∩┐╜na ten sam arkusz '
  1174.       'w∩┐╜o∩┐╜y∩┐╜ powt∩┐╜rnie do drukarki '
  1175.       '"okr∩┐╜caj∩┐╜c" go o 180 stopni. W '
  1176.       'efekcie tego - z∩┐╜o∩┐╜enie kartki na '
  1177.       'p∩┐╜ - spowoduje (po w∩┐╜o∩┐╜eniu kalki '
  1178.       'lub zastosowaniu papieru '
  1179.       'samokopiuj∩┐╜cego) mo∩┐╜liwo∩┐╜∩┐╜ '
  1180.       'jednorazowego wype∩┐╜nienia strony '
  1181.       'Ksi∩┐╜∩┐╜ki przez pracownika Poczty. '
  1182.       'Poniewa∩┐╜ ka∩┐╜da strona Ksi∩┐╜∩┐╜ki '
  1183.       'Nadawczej zawiera tylko dziesi∩┐╜∩┐╜ '
  1184.       'pozycji - nale∩┐╜y pami∩┐╜ta∩┐╜, aby w '
  1185.       'drukarce umie∩┐╜ci∩┐╜ odpowiedni∩┐╜ '
  1186.       'ilo∩┐╜∩┐╜ arkuszy papieru wystarczaj∩┐╜c∩┐╜ '
  1187.       'na wydrukowanie wszystkich '
  1188.       'adresat∩┐╜w.'
  1189.       ''
  1190.       '9.Ksi∩┐╜∩┐╜ka kodowa.'
  1191.       'Umo∩┐╜liwia ona znalezienie '
  1192.       'nieznanego wcze∩┐╜niej numeru kodu '
  1193.       'lub sprawdzenie kodu ju∩┐╜ '
  1194.       'wpisanego zar∩┐╜wno w adresie '
  1195.       'nadawcy jak i adresata. Po '
  1196.       'dokonaniu wyboru z listy nadawc∩┐╜w '
  1197.       'albo adresat∩┐╜w i wci∩┐╜ni∩┐╜ciu '
  1198.       'klawisza "Znajd∩┐╜, sprawd∩┐╜...", w '
  1199.       'dw∩┐╜ch wolnych bia∩┐╜ych polach '
  1200.       'pojawi si∩┐╜ nazwa miasta i nazwa '
  1201.       'ulicy wybranego nadawcy lub '
  1202.       'adresata. Po klikni∩┐╜ciu w klawisz '
  1203.       '"Szukaj" poni∩┐╜ej zostanie '
  1204.       'utworzona lista adres∩┐╜w '
  1205.       'odpowiadaj∩┐╜cych podanym '
  1206.       'parametrom. Trzeba j∩┐╜ rozwin∩┐╜∩┐╜ i '
  1207.       'odszuka∩┐╜ interesuj∩┐╜cy nas '
  1208.       'dok∩┐╜adny adres. Odpowiedni numer '
  1209.       'kodu pocztowego zostanie '
  1210.       'wczytany do pola "Kod pocztowy". '
  1211.       'Teraz mo∩┐╜na b∩┐╜dzie go doda∩┐╜ do '
  1212.       'konkretnego adresu wciskaj∩┐╜c '
  1213.       'klawisz "Dodaj kod do...". Kod '
  1214.       'mo∩┐╜emy znale∩┐╜∩┐╜ r∩┐╜wnie∩┐╜:'
  1215.       '- wpisuj∩┐╜c r∩┐╜cznie nazw∩┐╜ miasta i '
  1216.       'ulicy w wolne bia∩┐╜e pola okna '
  1217.       'post∩┐╜puj∩┐╜c nast∩┐╜pnie tak jak '
  1218.       'opisano powy∩┐╜ej'
  1219.       '- rozwijaj∩┐╜c list∩┐╜ miejscowo∩┐╜ci z '
  1220.       'jednym numerem kodowym i '
  1221.       'dokonuj∩┐╜c w jej ramach wyboru'
  1222.       '- wybieraj∩┐╜c z nast∩┐╜pnej listy miasto '
  1223.       'i rozwijaj∩┐╜c poni∩┐╜sz∩┐╜ list∩┐╜ z nazwami '
  1224.       'ulic w ramach tego miasta.'
  1225.       'Aby przyspieszy∩┐╜ wyszukiwanie '
  1226.       'kodu, przy listach umieszczone s∩┐╜ '
  1227.       'litery alfabetu. Wybranie jednej z '
  1228.       'nich (tej na kt∩┐╜r∩┐╜ zaczyna si∩┐╜ '
  1229.       'nazwa miejscowo∩┐╜ci lub ulicy) '
  1230.       'pozwoli na skr∩┐╜cenie ca∩┐╜ego '
  1231.       'procesu wyszukiwania numeru '
  1232.       'kodowego poprzez wczytanie do '
  1233.       'listy tylko nazw zaczynaj∩┐╜cych si∩┐╜ '
  1234.       'na wskazan∩┐╜ liter∩┐╜. Dwucz∩┐╜onowe '
  1235.       'nazwy miast nie zawieraj∩┐╜ my∩┐╜lnika '
  1236.       '(np. Bielsko Bia∩┐╜a). Nale∩┐╜y pami∩┐╜ta∩┐╜ '
  1237.       'o tym przy wpisywaniu nowych '
  1238.       'adresat∩┐╜w i nadawc∩┐╜w.')
  1239.     ReadOnly = True
  1240.     ScrollBars = ssVertical
  1241.     TabOrder = 30
  1242.   end
  1243.   object Button61: TButton
  1244.     Left = 180
  1245.     Top = 520
  1246.     Width = 17
  1247.     Height = 17
  1248.     Caption = '?'
  1249.     Font.Color = clBlack
  1250.     Font.Height = -11
  1251.     Font.Name = 'MS Sans Serif'
  1252.     Font.Style = [fsBold]
  1253.     ParentFont = False
  1254.     TabOrder = 31
  1255.     TabStop = False
  1256.     OnClick = Button61Click
  1257.   end
  1258.   object p_et1: TPanel
  1259.     Left = 116
  1260.     Top = 92
  1261.     Width = 213
  1262.     Height = 33
  1263.     TabOrder = 25
  1264.     Visible = False
  1265.     object Ety: TRadioGroup
  1266.       Left = 16
  1267.       Top = 16
  1268.       Width = 181
  1269.       Height = 229
  1270.       Caption = ' Zaznacz etykiet∩┐╜ do druku '
  1271.       Columns = 2
  1272.       Font.Color = clBlack
  1273.       Font.Height = -11
  1274.       Font.Name = 'MS Sans Serif'
  1275.       Font.Style = [fsBold]
  1276.       Items.Strings = (
  1277.         'nr 01'
  1278.         'nr 02'
  1279.         'nr 03'
  1280.         'nr 04'
  1281.         'nr 05'
  1282.         'nr 06'
  1283.         'nr 07'
  1284.         'nr 08'
  1285.         'nr 09'
  1286.         'nr 10'
  1287.         'nr 11'
  1288.         'nr 12'
  1289.         'nr 13'
  1290.         'nr 14'
  1291.         'nr 15'
  1292.         'nr 16')
  1293.       ParentFont = False
  1294.       TabOrder = 0
  1295.     end
  1296.     object Button3: TButton
  1297.       Left = 16
  1298.       Top = 256
  1299.       Width = 181
  1300.       Height = 25
  1301.       Caption = 'Drukuj etykiet∩┐╜ adresow∩┐╜'
  1302.       TabOrder = 1
  1303.       OnClick = Button3Click
  1304.     end
  1305.     object Button5: TButton
  1306.       Left = 16
  1307.       Top = 280
  1308.       Width = 181
  1309.       Height = 25
  1310.       Caption = 'Drukuj rozkr∩┐╜j'
  1311.       TabOrder = 2
  1312.       OnClick = Button5Click
  1313.     end
  1314.     object Button6: TButton
  1315.       Left = 16
  1316.       Top = 304
  1317.       Width = 181
  1318.       Height = 25
  1319.       Caption = 'Czcionka do druku'
  1320.       TabOrder = 3
  1321.       OnClick = Button6Click
  1322.     end
  1323.     object Button4: TButton
  1324.       Left = 16
  1325.       Top = 328
  1326.       Width = 181
  1327.       Height = 25
  1328.       Caption = 'Zamknij'
  1329.       TabOrder = 4
  1330.       OnClick = Button4Click
  1331.     end
  1332.   end
  1333.   object p_kody: TPanel
  1334.     Left = 44
  1335.     Top = 92
  1336.     Width = 509
  1337.     Height = 37
  1338.     BevelOuter = bvNone
  1339.     Font.Color = clNavy
  1340.     Font.Height = -9
  1341.     Font.Name = 'Small Fonts'
  1342.     Font.Style = [fsBold]
  1343.     ParentFont = False
  1344.     TabOrder = 26
  1345.     Visible = False
  1346.     object Label39: TLabel
  1347.       Left = 312
  1348.       Top = 4
  1349.       Width = 201
  1350.       Height = 20
  1351.       Caption = 'Ksi∩┐╜∩┐╜ka kodowa: Polska'
  1352.       Font.Color = clNavy
  1353.       Font.Height = -16
  1354.       Font.Name = 'MS Sans Serif'
  1355.       Font.Style = [fsBold]
  1356.       ParentFont = False
  1357.     end
  1358.     object Label49: TLabel
  1359.       Left = 376
  1360.       Top = 24
  1361.       Width = 69
  1362.       Height = 13
  1363.       Caption = 'wersja 1.1pl'
  1364.       Font.Color = clNavy
  1365.       Font.Height = -11
  1366.       Font.Name = 'MS Sans Serif'
  1367.       Font.Style = [fsBold]
  1368.       ParentFont = False
  1369.     end
  1370.     object Label50: TLabel
  1371.       Left = 404
  1372.       Top = 220
  1373.       Width = 206
  1374.       Height = 20
  1375.       Caption = 'Kod pocztowy .................'
  1376.       Font.Color = clNavy
  1377.       Font.Height = -16
  1378.       Font.Name = 'MS Sans Serif'
  1379.       Font.Style = [fsBold]
  1380.       ParentFont = False
  1381.       Transparent = True
  1382.     end
  1383.     object Label51: TLabel
  1384.       Left = 20
  1385.       Top = 44
  1386.       Width = 205
  1387.       Height = 13
  1388.       Caption = 'Lista miejscowo∩┐╜ci z jednolitym PNA'
  1389.       Font.Color = clNavy
  1390.       Font.Height = -11
  1391.       Font.Name = 'MS Sans Serif'
  1392.       Font.Style = [fsBold]
  1393.       ParentFont = False
  1394.     end
  1395.     object Label52: TLabel
  1396.       Left = 20
  1397.       Top = 168
  1398.       Width = 52
  1399.       Height = 13
  1400.       Caption = 'Lista ulic'
  1401.       Font.Color = clNavy
  1402.       Font.Height = -11
  1403.       Font.Name = 'MS Sans Serif'
  1404.       Font.Style = [fsBold]
  1405.       ParentFont = False
  1406.     end
  1407.     object Label53: TLabel
  1408.       Left = 20
  1409.       Top = 116
  1410.       Width = 61
  1411.       Height = 13
  1412.       Caption = 'Lista miast'
  1413.       Font.Color = clNavy
  1414.       Font.Height = -11
  1415.       Font.Name = 'MS Sans Serif'
  1416.       Font.Style = [fsBold]
  1417.       ParentFont = False
  1418.     end
  1419.     object Label54: TLabel
  1420.       Left = 412
  1421.       Top = 64
  1422.       Width = 171
  1423.       Height = 13
  1424.       Caption = 'Podaj nazw∩┐╜ szukanej miejscowo∩┐╜ci'
  1425.       Font.Color = clNavy
  1426.       Font.Height = -11
  1427.       Font.Name = 'MS Sans Serif'
  1428.       Font.Style = []
  1429.       ParentFont = False
  1430.     end
  1431.     object Label55: TLabel
  1432.       Left = 412
  1433.       Top = 88
  1434.       Width = 130
  1435.       Height = 13
  1436.       Caption = 'Podaj nazw∩┐╜ szukanej ulicy'
  1437.       Font.Color = clNavy
  1438.       Font.Height = -11
  1439.       Font.Name = 'MS Sans Serif'
  1440.       Font.Style = []
  1441.       ParentFont = False
  1442.     end
  1443.     object Label56: TLabel
  1444.       Left = 412
  1445.       Top = 128
  1446.       Width = 146
  1447.       Height = 13
  1448.       Caption = 'Po wype∩┐╜nieniu naci∩┐╜nij Szukaj'
  1449.       Font.Color = clNavy
  1450.       Font.Height = -11
  1451.       Font.Name = 'MS Sans Serif'
  1452.       Font.Style = []
  1453.       ParentFont = False
  1454.     end
  1455.     object Label68: TLabel
  1456.       Left = 452
  1457.       Top = 156
  1458.       Width = 284
  1459.       Height = 13
  1460.       Caption = 'Aby obejrze∩┐╜ wynik szukania rozwi∩┐╜ poni∩┐╜sz∩┐╜ list∩┐╜'
  1461.       Font.Color = clNavy
  1462.       Font.Height = -11
  1463.       Font.Name = 'MS Sans Serif'
  1464.       Font.Style = [fsBold]
  1465.       ParentFont = False
  1466.     end
  1467.     object Label80: TLabel
  1468.       Left = 306
  1469.       Top = 168
  1470.       Width = 65
  1471.       Height = 13
  1472.       Alignment = taRightJustify
  1473.       Caption = 'Liczba ulic : 0'
  1474.       Font.Color = clPurple
  1475.       Font.Height = -11
  1476.       Font.Name = 'MS Sans Serif'
  1477.       Font.Style = []
  1478.       ParentFont = False
  1479.     end
  1480.     object Label81: TLabel
  1481.       Left = 292
  1482.       Top = 116
  1483.       Width = 79
  1484.       Height = 13
  1485.       Alignment = taRightJustify
  1486.       Caption = 'Liczba miast : 21'
  1487.       Font.Color = clPurple
  1488.       Font.Height = -11
  1489.       Font.Name = 'MS Sans Serif'
  1490.       Font.Style = []
  1491.       ParentFont = False
  1492.     end
  1493.     object Label82: TLabel
  1494.       Left = 368
  1495.       Top = 44
  1496.       Width = 3
  1497.       Height = 13
  1498.       Alignment = taRightJustify
  1499.       Font.Color = clPurple
  1500.       Font.Height = -11
  1501.       Font.Name = 'MS Sans Serif'
  1502.       Font.Style = []
  1503.       ParentFont = False
  1504.     end
  1505.     object Label83: TLabel
  1506.       Left = 12
  1507.       Top = 236
  1508.       Width = 100
  1509.       Height = 13
  1510.       Caption = 'p : = numery parzyste'
  1511.       Font.Color = clNavy
  1512.       Font.Height = -11
  1513.       Font.Name = 'MS Sans Serif'
  1514.       Font.Style = []
  1515.       ParentFont = False
  1516.     end
  1517.     object Label84: TLabel
  1518.       Left = 148
  1519.       Top = 236
  1520.       Width = 114
  1521.       Height = 13
  1522.       Caption = 'n : = numery nieparzyste'
  1523.       Font.Color = clNavy
  1524.       Font.Height = -11
  1525.       Font.Name = 'MS Sans Serif'
  1526.       Font.Style = []
  1527.       ParentFont = False
  1528.     end
  1529.     object ciag10: TLabel
  1530.       Left = 392
  1531.       Top = 44
  1532.       Width = 32
  1533.       Height = 11
  1534.       Caption = 'ciag10'
  1535.       Visible = False
  1536.     end
  1537.     object Button7: TButton
  1538.       Left = 8
  1539.       Top = 4
  1540.       Width = 269
  1541.       Height = 25
  1542.       Caption = 'Znajd∩┐╜/sprawd∩┐╜ numer kodu Nadawcy'
  1543.       Font.Color = clNavy
  1544.       Font.Height = -11
  1545.       Font.Name = 'MS Sans Serif'
  1546.       Font.Style = []
  1547.       ParentFont = False
  1548.       TabOrder = 0
  1549.       OnClick = Button7Click
  1550.     end
  1551.     object Button8: TButton
  1552.       Left = 552
  1553.       Top = 4
  1554.       Width = 233
  1555.       Height = 25
  1556.       Caption = 'Znajd∩┐╜/sprawd∩┐╜ numer kodu Adresata'
  1557.       Font.Color = clNavy
  1558.       Font.Height = -11
  1559.       Font.Name = 'MS Sans Serif'
  1560.       Font.Style = []
  1561.       ParentFont = False
  1562.       TabOrder = 1
  1563.       OnClick = Button8Click
  1564.     end
  1565.     object Lista_miejscowosci: TComboBox
  1566.       Left = 8
  1567.       Top = 88
  1568.       Width = 381
  1569.       Height = 24
  1570.       Style = csDropDownList
  1571.       Color = clNavy
  1572.       DropDownCount = 20
  1573.       Font.Color = clYellow
  1574.       Font.Height = -13
  1575.       Font.Name = 'MS Sans Serif'
  1576.       Font.Style = [fsBold]
  1577.       ItemHeight = 16
  1578.       MaxLength = 80
  1579.       ParentFont = False
  1580.       Sorted = True
  1581.       TabOrder = 25
  1582.       OnClick = Lista_miejscowosciClick
  1583.     end
  1584.     object Lista_miast: TComboBox
  1585.       Left = 8
  1586.       Top = 136
  1587.       Width = 381
  1588.       Height = 24
  1589.       Style = csDropDownList
  1590.       Color = clNavy
  1591.       DropDownCount = 21
  1592.       Font.Color = clYellow
  1593.       Font.Height = -13
  1594.       Font.Name = 'MS Sans Serif'
  1595.       Font.Style = [fsBold]
  1596.       ItemHeight = 16
  1597.       Items.Strings = (
  1598.         'Bia∩┐╜ystok'
  1599.         'Bielsko Bia∩┐╜a'
  1600.         'Bydgoszcz'
  1601.         'Gda∩┐╜sk'
  1602.         'Gdynia'
  1603.         'Katowice'
  1604.         'Kielce'
  1605.         'Koszalin'
  1606.         'Krak∩┐╜w'
  1607.         'Lublin'
  1608.         '∩┐╜∩┐╜d∩┐╜'
  1609.         'Olsztyn'
  1610.         'Opole'
  1611.         'Pozna∩┐╜'
  1612.         'Radom'
  1613.         'Rzesz∩┐╜w'
  1614.         'Sopot'
  1615.         'Szczecin'
  1616.         'Warszawa'
  1617.         'Wroc∩┐╜aw'
  1618.         'Zielona G∩┐╜ra')
  1619.       MaxLength = 80
  1620.       ParentFont = False
  1621.       Sorted = True
  1622.       TabOrder = 26
  1623.       OnClick = Lista_miastClick
  1624.     end
  1625.     object Lista_ulic: TComboBox
  1626.       Left = 8
  1627.       Top = 212
  1628.       Width = 381
  1629.       Height = 24
  1630.       Style = csDropDownList
  1631.       Color = clNavy
  1632.       DropDownCount = 29
  1633.       Font.Color = clYellow
  1634.       Font.Height = -13
  1635.       Font.Name = 'MS Sans Serif'
  1636.       Font.Style = [fsBold]
  1637.       ItemHeight = 16
  1638.       MaxLength = 80
  1639.       ParentFont = False
  1640.       Sorted = True
  1641.       TabOrder = 51
  1642.     end
  1643.     object e_miasto: TEdit
  1644.       Left = 620
  1645.       Top = 60
  1646.       Width = 165
  1647.       Height = 21
  1648.       Font.Color = clNavy
  1649.       Font.Height = -11
  1650.       Font.Name = 'MS Sans Serif'
  1651.       Font.Style = [fsBold]
  1652.       ParentFont = False
  1653.       TabOrder = 54
  1654.       Text = 'e_miasto'
  1655.     end
  1656.     object e_ulica: TEdit
  1657.       Left = 620
  1658.       Top = 84
  1659.       Width = 165
  1660.       Height = 21
  1661.       Font.Color = clNavy
  1662.       Font.Height = -11
  1663.       Font.Name = 'MS Sans Serif'
  1664.       Font.Style = [fsBold]
  1665.       ParentFont = False
  1666.       TabOrder = 55
  1667.       Text = 'e_ulica'
  1668.     end
  1669.     object Button9: TButton
  1670.       Left = 620
  1671.       Top = 124
  1672.       Width = 165
  1673.       Height = 25
  1674.       Caption = 'Szukaj'
  1675.       Font.Color = clNavy
  1676.       Font.Height = -11
  1677.       Font.Name = 'MS Sans Serif'
  1678.       Font.Style = [fsBold]
  1679.       ParentFont = False
  1680.       TabOrder = 56
  1681.       OnClick = Button9Click
  1682.     end
  1683.     object ComboBox4: TComboBox
  1684.       Left = 404
  1685.       Top = 176
  1686.       Width = 381
  1687.       Height = 24
  1688.       Style = csDropDownList
  1689.       Color = clNavy
  1690.       DropDownCount = 27
  1691.       Font.Color = clWhite
  1692.       Font.Height = -13
  1693.       Font.Name = 'MS Sans Serif'
  1694.       Font.Style = [fsBold]
  1695.       ItemHeight = 16
  1696.       MaxLength = 80
  1697.       ParentFont = False
  1698.       TabOrder = 57
  1699.       OnClick = ComboBox4Click
  1700.     end
  1701.     object Button14: TButton
  1702.       Left = 8
  1703.       Top = 258
  1704.       Width = 189
  1705.       Height = 25
  1706.       Caption = 'Dodaj kod do adresu nadawcy'
  1707.       Font.Color = clNavy
  1708.       Font.Height = -11
  1709.       Font.Name = 'MS Sans Serif'
  1710.       Font.Style = []
  1711.       ParentFont = False
  1712.       TabOrder = 52
  1713.       OnClick = Button14Click
  1714.     end
  1715.     object Button15: TButton
  1716.       Left = 196
  1717.       Top = 258
  1718.       Width = 193
  1719.       Height = 25
  1720.       Caption = 'Dodaj kod do adresu adresata'
  1721.       Font.Color = clNavy
  1722.       Font.Height = -11
  1723.       Font.Name = 'MS Sans Serif'
  1724.       Font.Style = []
  1725.       ParentFont = False
  1726.       TabOrder = 53
  1727.       OnClick = Button15Click
  1728.     end
  1729.     object Button16: TButton
  1730.       Left = 8
  1731.       Top = 64
  1732.       Width = 17
  1733.       Height = 17
  1734.       Caption = 'A'
  1735.       Font.Color = clNavy
  1736.       Font.Height = -9
  1737.       Font.Name = 'Small Fonts'
  1738.       Font.Style = [fsBold]
  1739.       ParentFont = False
  1740.       TabOrder = 2
  1741.       OnClick = Button16Click
  1742.     end
  1743.     object Button17: TButton
  1744.       Left = 24
  1745.       Top = 64
  1746.       Width = 17
  1747.       Height = 17
  1748.       Caption = 'B'
  1749.       Font.Color = clNavy
  1750.       Font.Height = -9
  1751.       Font.Name = 'Small Fonts'
  1752.       Font.Style = [fsBold]
  1753.       ParentFont = False
  1754.       TabOrder = 3
  1755.       OnClick = Button17Click
  1756.     end
  1757.     object Button18: TButton
  1758.       Left = 40
  1759.       Top = 64
  1760.       Width = 17
  1761.       Height = 17
  1762.       Caption = 'C'
  1763.       Font.Color = clNavy
  1764.       Font.Height = -9
  1765.       Font.Name = 'Small Fonts'
  1766.       Font.Style = [fsBold]
  1767.       ParentFont = False
  1768.       TabOrder = 4
  1769.       OnClick = Button18Click
  1770.     end
  1771.     object Button19: TButton
  1772.       Left = 56
  1773.       Top = 64
  1774.       Width = 17
  1775.       Height = 17
  1776.       Caption = 'D'
  1777.       Font.Color = clNavy
  1778.       Font.Height = -9
  1779.       Font.Name = 'Small Fonts'
  1780.       Font.Style = [fsBold]
  1781.       ParentFont = False
  1782.       TabOrder = 5
  1783.       OnClick = Button19Click
  1784.     end
  1785.     object Button20: TButton
  1786.       Left = 72
  1787.       Top = 64
  1788.       Width = 17
  1789.       Height = 17
  1790.       Caption = 'E'
  1791.       Font.Color = clNavy
  1792.       Font.Height = -9
  1793.       Font.Name = 'Small Fonts'
  1794.       Font.Style = [fsBold]
  1795.       ParentFont = False
  1796.       TabOrder = 6
  1797.       OnClick = Button20Click
  1798.     end
  1799.     object Button21: TButton
  1800.       Left = 88
  1801.       Top = 64
  1802.       Width = 17
  1803.       Height = 17
  1804.       Caption = 'F'
  1805.       Font.Color = clNavy
  1806.       Font.Height = -9
  1807.       Font.Name = 'Small Fonts'
  1808.       Font.Style = [fsBold]
  1809.       ParentFont = False
  1810.       TabOrder = 7
  1811.       OnClick = Button21Click
  1812.     end
  1813.     object Button22: TButton
  1814.       Left = 104
  1815.       Top = 64
  1816.       Width = 17
  1817.       Height = 17
  1818.       Caption = 'G'
  1819.       Font.Color = clNavy
  1820.       Font.Height = -9
  1821.       Font.Name = 'Small Fonts'
  1822.       Font.Style = [fsBold]
  1823.       ParentFont = False
  1824.       TabOrder = 8
  1825.       OnClick = Button22Click
  1826.     end
  1827.     object Button23: TButton
  1828.       Left = 120
  1829.       Top = 64
  1830.       Width = 17
  1831.       Height = 17
  1832.       Caption = 'H'
  1833.       Font.Color = clNavy
  1834.       Font.Height = -9
  1835.       Font.Name = 'Small Fonts'
  1836.       Font.Style = [fsBold]
  1837.       ParentFont = False
  1838.       TabOrder = 9
  1839.       OnClick = Button23Click
  1840.     end
  1841.     object Button24: TButton
  1842.       Left = 136
  1843.       Top = 64
  1844.       Width = 17
  1845.       Height = 17
  1846.       Caption = 'I'
  1847.       Font.Color = clNavy
  1848.       Font.Height = -9
  1849.       Font.Name = 'Small Fonts'
  1850.       Font.Style = [fsBold]
  1851.       ParentFont = False
  1852.       TabOrder = 10
  1853.       OnClick = Button24Click
  1854.     end
  1855.     object Button25: TButton
  1856.       Left = 152
  1857.       Top = 64
  1858.       Width = 17
  1859.       Height = 17
  1860.       Caption = 'J'
  1861.       Font.Color = clNavy
  1862.       Font.Height = -9
  1863.       Font.Name = 'Small Fonts'
  1864.       Font.Style = [fsBold]
  1865.       ParentFont = False
  1866.       TabOrder = 11
  1867.       OnClick = Button25Click
  1868.     end
  1869.     object Button26: TButton
  1870.       Left = 168
  1871.       Top = 64
  1872.       Width = 17
  1873.       Height = 17
  1874.       Caption = 'K'
  1875.       Font.Color = clNavy
  1876.       Font.Height = -9
  1877.       Font.Name = 'Small Fonts'
  1878.       Font.Style = [fsBold]
  1879.       ParentFont = False
  1880.       TabOrder = 12
  1881.       OnClick = Button26Click
  1882.     end
  1883.     object Button27: TButton
  1884.       Left = 184
  1885.       Top = 64
  1886.       Width = 17
  1887.       Height = 17
  1888.       Caption = 'L'
  1889.       Font.Color = clNavy
  1890.       Font.Height = -9
  1891.       Font.Name = 'Small Fonts'
  1892.       Font.Style = [fsBold]
  1893.       ParentFont = False
  1894.       TabOrder = 13
  1895.       OnClick = Button27Click
  1896.     end
  1897.     object Button28: TButton
  1898.       Left = 200
  1899.       Top = 64
  1900.       Width = 17
  1901.       Height = 17
  1902.       Caption = '∩┐╜'
  1903.       Font.Color = clNavy
  1904.       Font.Height = -9
  1905.       Font.Name = 'Small Fonts'
  1906.       Font.Style = [fsBold]
  1907.       ParentFont = False
  1908.       TabOrder = 14
  1909.       OnClick = Button28Click
  1910.     end
  1911.     object Button29: TButton
  1912.       Left = 216
  1913.       Top = 64
  1914.       Width = 17
  1915.       Height = 17
  1916.       Caption = 'M'
  1917.       Font.Color = clNavy
  1918.       Font.Height = -9
  1919.       Font.Name = 'Small Fonts'
  1920.       Font.Style = [fsBold]
  1921.       ParentFont = False
  1922.       TabOrder = 15
  1923.       OnClick = Button29Click
  1924.     end
  1925.     object Button30: TButton
  1926.       Left = 232
  1927.       Top = 64
  1928.       Width = 17
  1929.       Height = 17
  1930.       Caption = 'N'
  1931.       Font.Color = clNavy
  1932.       Font.Height = -9
  1933.       Font.Name = 'Small Fonts'
  1934.       Font.Style = [fsBold]
  1935.       ParentFont = False
  1936.       TabOrder = 16
  1937.       OnClick = Button30Click
  1938.     end
  1939.     object Button31: TButton
  1940.       Left = 248
  1941.       Top = 64
  1942.       Width = 17
  1943.       Height = 17
  1944.       Caption = 'O'
  1945.       Font.Color = clNavy
  1946.       Font.Height = -9
  1947.       Font.Name = 'Small Fonts'
  1948.       Font.Style = [fsBold]
  1949.       ParentFont = False
  1950.       TabOrder = 17
  1951.       OnClick = Button31Click
  1952.     end
  1953.     object Button32: TButton
  1954.       Left = 264
  1955.       Top = 64
  1956.       Width = 17
  1957.       Height = 17
  1958.       Caption = 'P'
  1959.       Font.Color = clNavy
  1960.       Font.Height = -9
  1961.       Font.Name = 'Small Fonts'
  1962.       Font.Style = [fsBold]
  1963.       ParentFont = False
  1964.       TabOrder = 18
  1965.       OnClick = Button32Click
  1966.     end
  1967.     object Button33: TButton
  1968.       Left = 280
  1969.       Top = 64
  1970.       Width = 17
  1971.       Height = 17
  1972.       Caption = 'R'
  1973.       Font.Color = clNavy
  1974.       Font.Height = -9
  1975.       Font.Name = 'Small Fonts'
  1976.       Font.Style = [fsBold]
  1977.       ParentFont = False
  1978.       TabOrder = 19
  1979.       OnClick = Button33Click
  1980.     end
  1981.     object Button34: TButton
  1982.       Left = 296
  1983.       Top = 64
  1984.       Width = 17
  1985.       Height = 17
  1986.       Caption = 'S'
  1987.       Font.Color = clNavy
  1988.       Font.Height = -9
  1989.       Font.Name = 'Small Fonts'
  1990.       Font.Style = [fsBold]
  1991.       ParentFont = False
  1992.       TabOrder = 20
  1993.       OnClick = Button34Click
  1994.     end
  1995.     object Button35: TButton
  1996.       Left = 312
  1997.       Top = 64
  1998.       Width = 17
  1999.       Height = 17
  2000.       Caption = 'T'
  2001.       Font.Color = clNavy
  2002.       Font.Height = -9
  2003.       Font.Name = 'Small Fonts'
  2004.       Font.Style = [fsBold]
  2005.       ParentFont = False
  2006.       TabOrder = 21
  2007.       OnClick = Button35Click
  2008.     end
  2009.     object Button36: TButton
  2010.       Left = 328
  2011.       Top = 64
  2012.       Width = 17
  2013.       Height = 17
  2014.       Caption = 'U'
  2015.       Font.Color = clNavy
  2016.       Font.Height = -9
  2017.       Font.Name = 'Small Fonts'
  2018.       Font.Style = [fsBold]
  2019.       ParentFont = False
  2020.       TabOrder = 22
  2021.       OnClick = Button36Click
  2022.     end
  2023.     object Button38: TButton
  2024.       Left = 344
  2025.       Top = 64
  2026.       Width = 17
  2027.       Height = 17
  2028.       Caption = 'W'
  2029.       Font.Color = clNavy
  2030.       Font.Height = -9
  2031.       Font.Name = 'Small Fonts'
  2032.       Font.Style = [fsBold]
  2033.       ParentFont = False
  2034.       TabOrder = 23
  2035.       OnClick = Button38Click
  2036.     end
  2037.     object Button39: TButton
  2038.       Left = 360
  2039.       Top = 64
  2040.       Width = 17
  2041.       Height = 17
  2042.       Caption = 'Z'
  2043.       Font.Color = clNavy
  2044.       Font.Height = -9
  2045.       Font.Name = 'Small Fonts'
  2046.       Font.Style = [fsBold]
  2047.       ParentFont = False
  2048.       TabOrder = 24
  2049.       OnClick = Button39Click
  2050.     end
  2051.     object Button40: TButton
  2052.       Left = 8
  2053.       Top = 188
  2054.       Width = 17
  2055.       Height = 17
  2056.       Caption = 'A'
  2057.       Enabled = False
  2058.       Font.Color = clNavy
  2059.       Font.Height = -9
  2060.       Font.Name = 'Small Fonts'
  2061.       Font.Style = [fsBold]
  2062.       ParentFont = False
  2063.       TabOrder = 27
  2064.       OnClick = Button40Click
  2065.     end
  2066.     object Button41: TButton
  2067.       Left = 24
  2068.       Top = 188
  2069.       Width = 17
  2070.       Height = 17
  2071.       Caption = 'B'
  2072.       Enabled = False
  2073.       Font.Color = clNavy
  2074.       Font.Height = -9
  2075.       Font.Name = 'Small Fonts'
  2076.       Font.Style = [fsBold]
  2077.       ParentFont = False
  2078.       TabOrder = 28
  2079.       OnClick = Button41Click
  2080.     end
  2081.     object Button42: TButton
  2082.       Left = 40
  2083.       Top = 188
  2084.       Width = 17
  2085.       Height = 17
  2086.       Caption = 'C'
  2087.       Enabled = False
  2088.       Font.Color = clNavy
  2089.       Font.Height = -9
  2090.       Font.Name = 'Small Fonts'
  2091.       Font.Style = [fsBold]
  2092.       ParentFont = False
  2093.       TabOrder = 29
  2094.       OnClick = Button42Click
  2095.     end
  2096.     object Button43: TButton
  2097.       Left = 56
  2098.       Top = 188
  2099.       Width = 17
  2100.       Height = 17
  2101.       Caption = 'D'
  2102.       Enabled = False
  2103.       Font.Color = clNavy
  2104.       Font.Height = -9
  2105.       Font.Name = 'Small Fonts'
  2106.       Font.Style = [fsBold]
  2107.       ParentFont = False
  2108.       TabOrder = 30
  2109.       OnClick = Button43Click
  2110.     end
  2111.     object Button44: TButton
  2112.       Left = 72
  2113.       Top = 188
  2114.       Width = 17
  2115.       Height = 17
  2116.       Caption = 'E'
  2117.       Enabled = False
  2118.       Font.Color = clNavy
  2119.       Font.Height = -9
  2120.       Font.Name = 'Small Fonts'
  2121.       Font.Style = [fsBold]
  2122.       ParentFont = False
  2123.       TabOrder = 31
  2124.       OnClick = Button44Click
  2125.     end
  2126.     object Button45: TButton
  2127.       Left = 88
  2128.       Top = 188
  2129.       Width = 17
  2130.       Height = 17
  2131.       Caption = 'F'
  2132.       Enabled = False
  2133.       Font.Color = clNavy
  2134.       Font.Height = -9
  2135.       Font.Name = 'Small Fonts'
  2136.       Font.Style = [fsBold]
  2137.       ParentFont = False
  2138.       TabOrder = 32
  2139.       OnClick = Button45Click
  2140.     end
  2141.     object Button46: TButton
  2142.       Left = 104
  2143.       Top = 188
  2144.       Width = 17
  2145.       Height = 17
  2146.       Caption = 'G'
  2147.       Enabled = False
  2148.       Font.Color = clNavy
  2149.       Font.Height = -9
  2150.       Font.Name = 'Small Fonts'
  2151.       Font.Style = [fsBold]
  2152.       ParentFont = False
  2153.       TabOrder = 33
  2154.       OnClick = Button46Click
  2155.     end
  2156.     object Button47: TButton
  2157.       Left = 120
  2158.       Top = 188
  2159.       Width = 17
  2160.       Height = 17
  2161.       Caption = 'H'
  2162.       Enabled = False
  2163.       Font.Color = clNavy
  2164.       Font.Height = -9
  2165.       Font.Name = 'Small Fonts'
  2166.       Font.Style = [fsBold]
  2167.       ParentFont = False
  2168.       TabOrder = 34
  2169.       OnClick = Button47Click
  2170.     end
  2171.     object Button48: TButton
  2172.       Left = 136
  2173.       Top = 188
  2174.       Width = 17
  2175.       Height = 17
  2176.       Caption = 'I'
  2177.       Enabled = False
  2178.       Font.Color = clNavy
  2179.       Font.Height = -9
  2180.       Font.Name = 'Small Fonts'
  2181.       Font.Style = [fsBold]
  2182.       ParentFont = False
  2183.       TabOrder = 35
  2184.       OnClick = Button48Click
  2185.     end
  2186.     object Button49: TButton
  2187.       Left = 152
  2188.       Top = 188
  2189.       Width = 17
  2190.       Height = 17
  2191.       Caption = 'J'
  2192.       Enabled = False
  2193.       Font.Color = clNavy
  2194.       Font.Height = -9
  2195.       Font.Name = 'Small Fonts'
  2196.       Font.Style = [fsBold]
  2197.       ParentFont = False
  2198.       TabOrder = 36
  2199.       OnClick = Button49Click
  2200.     end
  2201.     object Button50: TButton
  2202.       Left = 168
  2203.       Top = 188
  2204.       Width = 17
  2205.       Height = 17
  2206.       Caption = 'K'
  2207.       Enabled = False
  2208.       Font.Color = clNavy
  2209.       Font.Height = -9
  2210.       Font.Name = 'Small Fonts'
  2211.       Font.Style = [fsBold]
  2212.       ParentFont = False
  2213.       TabOrder = 37
  2214.       OnClick = Button50Click
  2215.     end
  2216.     object Button51: TButton
  2217.       Left = 184
  2218.       Top = 188
  2219.       Width = 17
  2220.       Height = 17
  2221.       Caption = 'L'
  2222.       Enabled = False
  2223.       Font.Color = clNavy
  2224.       Font.Height = -9
  2225.       Font.Name = 'Small Fonts'
  2226.       Font.Style = [fsBold]
  2227.       ParentFont = False
  2228.       TabOrder = 38
  2229.       OnClick = Button51Click
  2230.     end
  2231.     object Button52: TButton
  2232.       Left = 200
  2233.       Top = 188
  2234.       Width = 17
  2235.       Height = 17
  2236.       Caption = '∩┐╜'
  2237.       Enabled = False
  2238.       Font.Color = clNavy
  2239.       Font.Height = -9
  2240.       Font.Name = 'Small Fonts'
  2241.       Font.Style = [fsBold]
  2242.       ParentFont = False
  2243.       TabOrder = 39
  2244.       OnClick = Button52Click
  2245.     end
  2246.     object Button53: TButton
  2247.       Left = 216
  2248.       Top = 188
  2249.       Width = 17
  2250.       Height = 17
  2251.       Caption = 'M'
  2252.       Enabled = False
  2253.       Font.Color = clNavy
  2254.       Font.Height = -9
  2255.       Font.Name = 'Small Fonts'
  2256.       Font.Style = [fsBold]
  2257.       ParentFont = False
  2258.       TabOrder = 40
  2259.       OnClick = Button53Click
  2260.     end
  2261.     object Button54: TButton
  2262.       Left = 232
  2263.       Top = 188
  2264.       Width = 17
  2265.       Height = 17
  2266.       Caption = 'N'
  2267.       Enabled = False
  2268.       Font.Color = clNavy
  2269.       Font.Height = -9
  2270.       Font.Name = 'Small Fonts'
  2271.       Font.Style = [fsBold]
  2272.       ParentFont = False
  2273.       TabOrder = 41
  2274.       OnClick = Button54Click
  2275.     end
  2276.     object Button55: TButton
  2277.       Left = 248
  2278.       Top = 188
  2279.       Width = 17
  2280.       Height = 17
  2281.       Caption = 'O'
  2282.       Enabled = False
  2283.       Font.Color = clNavy
  2284.       Font.Height = -9
  2285.       Font.Name = 'Small Fonts'
  2286.       Font.Style = [fsBold]
  2287.       ParentFont = False
  2288.       TabOrder = 42
  2289.       OnClick = Button55Click
  2290.     end
  2291.     object Button56: TButton
  2292.       Left = 264
  2293.       Top = 188
  2294.       Width = 17
  2295.       Height = 17
  2296.       Caption = 'P'
  2297.       Enabled = False
  2298.       Font.Color = clNavy
  2299.       Font.Height = -9
  2300.       Font.Name = 'Small Fonts'
  2301.       Font.Style = [fsBold]
  2302.       ParentFont = False
  2303.       TabOrder = 43
  2304.       OnClick = Button56Click
  2305.     end
  2306.     object Button57: TButton
  2307.       Left = 280
  2308.       Top = 188
  2309.       Width = 17
  2310.       Height = 17
  2311.       Caption = 'R'
  2312.       Enabled = False
  2313.       Font.Color = clNavy
  2314.       Font.Height = -9
  2315.       Font.Name = 'Small Fonts'
  2316.       Font.Style = [fsBold]
  2317.       ParentFont = False
  2318.       TabOrder = 44
  2319.       OnClick = Button57Click
  2320.     end
  2321.     object Button58: TButton
  2322.       Left = 296
  2323.       Top = 188
  2324.       Width = 17
  2325.       Height = 17
  2326.       Caption = 'S'
  2327.       Enabled = False
  2328.       Font.Color = clNavy
  2329.       Font.Height = -9
  2330.       Font.Name = 'Small Fonts'
  2331.       Font.Style = [fsBold]
  2332.       ParentFont = False
  2333.       TabOrder = 45
  2334.       OnClick = Button58Click
  2335.     end
  2336.     object Button59: TButton
  2337.       Left = 312
  2338.       Top = 188
  2339.       Width = 17
  2340.       Height = 17
  2341.       Caption = 'T'
  2342.       Enabled = False
  2343.       Font.Color = clNavy
  2344.       Font.Height = -9
  2345.       Font.Name = 'Small Fonts'
  2346.       Font.Style = [fsBold]
  2347.       ParentFont = False
  2348.       TabOrder = 46
  2349.       OnClick = Button59Click
  2350.     end
  2351.     object Button60: TButton
  2352.       Left = 328
  2353.       Top = 188
  2354.       Width = 17
  2355.       Height = 17
  2356.       Caption = 'U'
  2357.       Enabled = False
  2358.       Font.Color = clNavy
  2359.       Font.Height = -9
  2360.       Font.Name = 'Small Fonts'
  2361.       Font.Style = [fsBold]
  2362.       ParentFont = False
  2363.       TabOrder = 47
  2364.       OnClick = Button60Click
  2365.     end
  2366.     object Button62: TButton
  2367.       Left = 344
  2368.       Top = 188
  2369.       Width = 17
  2370.       Height = 17
  2371.       Caption = 'W'
  2372.       Enabled = False
  2373.       Font.Color = clNavy
  2374.       Font.Height = -9
  2375.       Font.Name = 'Small Fonts'
  2376.       Font.Style = [fsBold]
  2377.       ParentFont = False
  2378.       TabOrder = 48
  2379.       OnClick = Button62Click
  2380.     end
  2381.     object Button63: TButton
  2382.       Left = 360
  2383.       Top = 188
  2384.       Width = 17
  2385.       Height = 17
  2386.       Caption = 'Z'
  2387.       Enabled = False
  2388.       Font.Color = clNavy
  2389.       Font.Height = -9
  2390.       Font.Name = 'Small Fonts'
  2391.       Font.Style = [fsBold]
  2392.       ParentFont = False
  2393.       TabOrder = 49
  2394.       OnClick = Button63Click
  2395.     end
  2396.     object Panel1: TPanel
  2397.       Left = 612
  2398.       Top = 210
  2399.       Width = 173
  2400.       Height = 37
  2401.       BevelInner = bvLowered
  2402.       BevelOuter = bvLowered
  2403.       Color = clYellow
  2404.       TabOrder = 58
  2405.     end
  2406.     object kod: TEdit
  2407.       Left = 656
  2408.       Top = 214
  2409.       Width = 97
  2410.       Height = 29
  2411.       BorderStyle = bsNone
  2412.       Color = clYellow
  2413.       Ctl3D = True
  2414.       Font.Color = clRed
  2415.       Font.Height = -23
  2416.       Font.Name = 'MS Sans Serif'
  2417.       Font.Style = [fsBold]
  2418.       MaxLength = 6
  2419.       ParentCtl3D = False
  2420.       ParentFont = False
  2421.       TabOrder = 59
  2422.       Text = '00-000'
  2423.     end
  2424.     object Button37: TButton
  2425.       Left = 376
  2426.       Top = 188
  2427.       Width = 13
  2428.       Height = 17
  2429.       Caption = '...'
  2430.       Enabled = False
  2431.       TabOrder = 50
  2432.       OnClick = Button37Click
  2433.     end
  2434.   end
  2435.   object b_kody: TButton
  2436.     Left = 404
  2437.     Top = 516
  2438.     Width = 381
  2439.     Height = 25
  2440.     Caption = 'Ksi∩┐╜∩┐╜ka kodowa'
  2441.     Font.Color = clBlack
  2442.     Font.Height = -11
  2443.     Font.Name = 'MS Sans Serif'
  2444.     Font.Style = [fsBold]
  2445.     ParentFont = False
  2446.     TabOrder = 16
  2447.     OnClick = b_kodyClick
  2448.   end
  2449.   object p_drukuj_seria: TPanel
  2450.     Left = 52
  2451.     Top = 300
  2452.     Width = 49
  2453.     Height = 121
  2454.     BevelOuter = bvNone
  2455.     TabOrder = 23
  2456.     Visible = False
  2457.     object Label25: TLabel
  2458.       Left = 8
  2459.       Top = 4
  2460.       Width = 373
  2461.       Height = 45
  2462.       Alignment = taCenter
  2463.       AutoSize = False
  2464.       Caption = 
  2465.         'Aby rozpocz∩┐╜∩┐╜ druk seryjny nale∩┐╜y zaznaczy∩┐╜ na li∩┐╜cie druk∩┐╜w ∩┐╜∩┐╜d' +
  2466.         'any typ druku i wybra∩┐╜ Nadawc∩┐╜. Nast∩┐╜pnie prosz∩┐╜ wybra∩┐╜ adresat∩┐╜' +
  2467.         'w na poni∩┐╜szej li∩┐╜cie (Ctrl+mysz lub Shift+mysz) i nacisn∩┐╜∩┐╜ Druk' +
  2468.         'owanie seryjne.'
  2469.     end
  2470.     object Label26: TLabel
  2471.       Left = 8
  2472.       Top = 496
  2473.       Width = 183
  2474.       Height = 13
  2475.       Caption = 'Liczba wybranych adresat∩┐╜w : 0'
  2476.       Font.Color = clBlack
  2477.       Font.Height = -11
  2478.       Font.Name = 'MS Sans Serif'
  2479.       Font.Style = [fsBold]
  2480.       ParentFont = False
  2481.       Transparent = True
  2482.     end
  2483.     object ListBox1: TListBox
  2484.       Left = 8
  2485.       Top = 48
  2486.       Width = 377
  2487.       Height = 441
  2488.       Color = clMaroon
  2489.       Font.Color = clWhite
  2490.       Font.Height = -13
  2491.       Font.Name = 'MS Sans Serif'
  2492.       Font.Style = []
  2493.       ItemHeight = 16
  2494.       Items.Strings = (
  2495.         '0000'
  2496.         '1010'
  2497.         '1111'
  2498.         '1111'
  2499.         '1212'
  2500.         '1313'
  2501.         '1414'
  2502.         '1515'
  2503.         '1616'
  2504.         '1717'
  2505.         '1818'
  2506.         '1919'
  2507.         '2020'
  2508.         '2121'
  2509.         '2222'
  2510.         '2222'
  2511.         '2323'
  2512.         '2424'
  2513.         '2525'
  2514.         '2626'
  2515.         '2727'
  2516.         '2828'
  2517.         '2929'
  2518.         '3030'
  2519.         '3333'
  2520.         '4444'
  2521.         '5555'
  2522.         '6666'
  2523.         '7777'
  2524.         '8888'
  2525.         '9999')
  2526.       MultiSelect = True
  2527.       ParentFont = False
  2528.       Style = lbOwnerDrawFixed
  2529.       TabOrder = 0
  2530.       OnClick = ListBox1Click
  2531.     end
  2532.     object Memo1: TMemo
  2533.       Left = 8
  2534.       Top = 348
  2535.       Width = 377
  2536.       Height = 141
  2537.       ScrollBars = ssVertical
  2538.       TabOrder = 4
  2539.       Visible = False
  2540.     end
  2541.     object b_druk_etykiet: TButton
  2542.       Left = 8
  2543.       Top = 516
  2544.       Width = 173
  2545.       Height = 25
  2546.       Caption = 'Druk na etykietach adresowych'
  2547.       TabOrder = 1
  2548.       OnClick = b_druk_etykietClick
  2549.     end
  2550.     object b_drukuj_panel: TButton
  2551.       Left = 180
  2552.       Top = 516
  2553.       Width = 137
  2554.       Height = 25
  2555.       Caption = 'Drukowanie seryjne'
  2556.       TabOrder = 2
  2557.       OnClick = b_drukuj_panelClick
  2558.     end
  2559.     object b_zamknij_panel: TButton
  2560.       Left = 316
  2561.       Top = 516
  2562.       Width = 69
  2563.       Height = 25
  2564.       Caption = 'Koniec'
  2565.       TabOrder = 3
  2566.       OnClick = b_zamknij_panelClick
  2567.     end
  2568.   end
  2569.   object p_adresat: TPanel
  2570.     Left = 248
  2571.     Top = 136
  2572.     Width = 69
  2573.     Height = 21
  2574.     TabOrder = 28
  2575.     Visible = False
  2576.     object GroupBox2: TGroupBox
  2577.       Left = 8
  2578.       Top = 4
  2579.       Width = 389
  2580.       Height = 257
  2581.       Caption = ' Adresat '
  2582.       TabOrder = 0
  2583.       object Label12: TLabel
  2584.         Left = 12
  2585.         Top = 20
  2586.         Width = 101
  2587.         Height = 13
  2588.         Caption = 'Imi∩┐╜ i nazwisko/Firma'
  2589.       end
  2590.       object Label13: TLabel
  2591.         Left = 12
  2592.         Top = 40
  2593.         Width = 114
  2594.         Height = 13
  2595.         Caption = 'Ulica, nr domu, nr lokalu'
  2596.       end
  2597.       object Label14: TLabel
  2598.         Left = 12
  2599.         Top = 60
  2600.         Width = 67
  2601.         Height = 13
  2602.         Caption = 'Kod pocztowy'
  2603.       end
  2604.       object Label15: TLabel
  2605.         Left = 12
  2606.         Top = 80
  2607.         Width = 61
  2608.         Height = 13
  2609.         Caption = 'Miejscowo∩┐╜∩┐╜'
  2610.       end
  2611.       object Label16: TLabel
  2612.         Left = 12
  2613.         Top = 100
  2614.         Width = 32
  2615.         Height = 13
  2616.         Caption = 'Powiat'
  2617.       end
  2618.       object Label17: TLabel
  2619.         Left = 12
  2620.         Top = 120
  2621.         Width = 67
  2622.         Height = 13
  2623.         Caption = 'Wojew∩┐╜dztwo'
  2624.       end
  2625.       object Label18: TLabel
  2626.         Left = 12
  2627.         Top = 140
  2628.         Width = 18
  2629.         Height = 13
  2630.         Caption = 'Kraj'
  2631.       end
  2632.       object Label19: TLabel
  2633.         Left = 12
  2634.         Top = 160
  2635.         Width = 25
  2636.         Height = 13
  2637.         Caption = 'Bank'
  2638.       end
  2639.       object Label20: TLabel
  2640.         Left = 12
  2641.         Top = 180
  2642.         Width = 79
  2643.         Height = 13
  2644.         Caption = 'Numer rachunku'
  2645.       end
  2646.       object Label74: TLabel
  2647.         Left = 12
  2648.         Top = 200
  2649.         Width = 36
  2650.         Height = 13
  2651.         Caption = 'Telefon'
  2652.       end
  2653.       object imie_i_nazwisko2: TEdit
  2654.         Left = 136
  2655.         Top = 16
  2656.         Width = 245
  2657.         Height = 21
  2658.         MaxLength = 80
  2659.         TabOrder = 0
  2660.         Text = 'imie_i_nazwisko2'
  2661.         OnEnter = imie_i_nazwisko2Enter
  2662.         OnExit = imie_i_nazwisko2Exit
  2663.       end
  2664.       object adres2: TEdit
  2665.         Left = 136
  2666.         Top = 36
  2667.         Width = 245
  2668.         Height = 21
  2669.         MaxLength = 80
  2670.         TabOrder = 1
  2671.         Text = 'adres2'
  2672.         OnEnter = adres2Enter
  2673.         OnExit = adres2Exit
  2674.       end
  2675.       object kod_pocztowy2: TEdit
  2676.         Left = 136
  2677.         Top = 56
  2678.         Width = 245
  2679.         Height = 21
  2680.         MaxLength = 10
  2681.         TabOrder = 2
  2682.         Text = 'kod_pocztowy2'
  2683.         OnEnter = kod_pocztowy2aEnter
  2684.         OnExit = kod_pocztowy2aExit
  2685.       end
  2686.       object miejscowosc2: TEdit
  2687.         Left = 136
  2688.         Top = 76
  2689.         Width = 245
  2690.         Height = 21
  2691.         MaxLength = 50
  2692.         TabOrder = 3
  2693.         Text = 'miejscowosc2'
  2694.         OnEnter = miejscowosc2Enter
  2695.         OnExit = miejscowosc2Exit
  2696.       end
  2697.       object powiat2: TEdit
  2698.         Left = 136
  2699.         Top = 96
  2700.         Width = 245
  2701.         Height = 21
  2702.         MaxLength = 25
  2703.         TabOrder = 4
  2704.         Text = 'powiat2'
  2705.         OnEnter = powiat2Enter
  2706.         OnExit = powiat2Exit
  2707.       end
  2708.       object wojewodztwo2: TEdit
  2709.         Left = 136
  2710.         Top = 116
  2711.         Width = 245
  2712.         Height = 21
  2713.         MaxLength = 25
  2714.         TabOrder = 5
  2715.         Text = 'wojewodztwo2'
  2716.         OnEnter = wojewodztwo2Enter
  2717.         OnExit = wojewodztwo2Exit
  2718.       end
  2719.       object kraj2: TEdit
  2720.         Left = 136
  2721.         Top = 136
  2722.         Width = 245
  2723.         Height = 21
  2724.         MaxLength = 25
  2725.         TabOrder = 6
  2726.         Text = 'kraj2'
  2727.         OnEnter = kraj2Enter
  2728.         OnExit = kraj2Exit
  2729.       end
  2730.       object bank2: TEdit
  2731.         Left = 136
  2732.         Top = 156
  2733.         Width = 245
  2734.         Height = 21
  2735.         MaxLength = 50
  2736.         TabOrder = 7
  2737.         Text = 'bank2'
  2738.         OnEnter = bank2Enter
  2739.         OnExit = bank2Exit
  2740.       end
  2741.       object numer_rachunku2: TEdit
  2742.         Left = 136
  2743.         Top = 176
  2744.         Width = 245
  2745.         Height = 21
  2746.         MaxLength = 30
  2747.         TabOrder = 8
  2748.         Text = 'numer_rachunku2'
  2749.         OnEnter = numer_rachunku2Enter
  2750.         OnExit = numer_rachunku2Exit
  2751.       end
  2752.       object b_nowy2: TButton
  2753.         Left = 8
  2754.         Top = 224
  2755.         Width = 69
  2756.         Height = 25
  2757.         Caption = 'Nowy'
  2758.         TabOrder = 10
  2759.         OnClick = b_nowy2Click
  2760.       end
  2761.       object b_usun2: TButton
  2762.         Left = 76
  2763.         Top = 224
  2764.         Width = 61
  2765.         Height = 25
  2766.         Caption = 'Usu∩┐╜'
  2767.         TabOrder = 11
  2768.         OnClick = b_usun2Click
  2769.       end
  2770.       object b_zapis2: TButton
  2771.         Left = 136
  2772.         Top = 224
  2773.         Width = 157
  2774.         Height = 25
  2775.         Caption = 'Dodaj do rejestru adresat∩┐╜w'
  2776.         TabOrder = 12
  2777.         OnClick = b_zapis2Click
  2778.       end
  2779.       object Button1: TButton
  2780.         Left = 72
  2781.         Top = 148
  2782.         Width = 63
  2783.         Height = 25
  2784.         Caption = 'Wczytaj'
  2785.         TabOrder = 14
  2786.         TabStop = False
  2787.         Visible = False
  2788.         OnClick = Button1Click
  2789.       end
  2790.       object b_korekta2: TButton
  2791.         Left = 292
  2792.         Top = 224
  2793.         Width = 89
  2794.         Height = 25
  2795.         Caption = 'Zapisz zmiany'
  2796.         TabOrder = 13
  2797.         OnClick = b_korekta2Click
  2798.       end
  2799.       object telefon2: TEdit
  2800.         Left = 136
  2801.         Top = 196
  2802.         Width = 245
  2803.         Height = 21
  2804.         MaxLength = 50
  2805.         TabOrder = 9
  2806.         Text = 'telefon2'
  2807.         OnEnter = telefon2Enter
  2808.         OnExit = telefon2Exit
  2809.       end
  2810.       object Panel4: TPanel
  2811.         Left = 288
  2812.         Top = 12
  2813.         Width = 93
  2814.         Height = 209
  2815.         Caption = 'Panel4'
  2816.         TabOrder = 15
  2817.         Visible = False
  2818.         object Label40: TLabel
  2819.           Left = 8
  2820.           Top = 8
  2821.           Width = 33
  2822.           Height = 13
  2823.         end
  2824.         object Label41: TLabel
  2825.           Left = 8
  2826.           Top = 28
  2827.           Width = 3
  2828.           Height = 13
  2829.         end
  2830.         object Label42: TLabel
  2831.           Left = 7
  2832.           Top = 48
  2833.           Width = 3
  2834.           Height = 13
  2835.         end
  2836.         object Label43: TLabel
  2837.           Left = 8
  2838.           Top = 68
  2839.           Width = 3
  2840.           Height = 13
  2841.         end
  2842.         object Label44: TLabel
  2843.           Left = 8
  2844.           Top = 88
  2845.           Width = 3
  2846.           Height = 13
  2847.         end
  2848.         object Label45: TLabel
  2849.           Left = 8
  2850.           Top = 108
  2851.           Width = 3
  2852.           Height = 13
  2853.         end
  2854.         object Label46: TLabel
  2855.           Left = 8
  2856.           Top = 128
  2857.           Width = 3
  2858.           Height = 13
  2859.         end
  2860.         object Label47: TLabel
  2861.           Left = 8
  2862.           Top = 148
  2863.           Width = 3
  2864.           Height = 13
  2865.         end
  2866.         object Label48: TLabel
  2867.           Left = 8
  2868.           Top = 168
  2869.           Width = 3
  2870.           Height = 13
  2871.         end
  2872.         object Label79: TLabel
  2873.           Left = 8
  2874.           Top = 188
  2875.           Width = 3
  2876.           Height = 13
  2877.         end
  2878.       end
  2879.     end
  2880.     object Button11: TButton
  2881.       Left = 16
  2882.       Top = 268
  2883.       Width = 373
  2884.       Height = 25
  2885.       Caption = 'Powr∩┐╜t'
  2886.       TabOrder = 1
  2887.       OnClick = Button11Click
  2888.     end
  2889.   end
  2890.   object p_nadawca: TPanel
  2891.     Left = 132
  2892.     Top = 136
  2893.     Width = 77
  2894.     Height = 21
  2895.     TabOrder = 27
  2896.     Visible = False
  2897.     object Button10: TButton
  2898.       Left = 16
  2899.       Top = 268
  2900.       Width = 373
  2901.       Height = 25
  2902.       Caption = 'Powr∩┐╜t'
  2903.       TabOrder = 1
  2904.       OnClick = Button10Click
  2905.     end
  2906.     object GroupBox1: TGroupBox
  2907.       Left = 8
  2908.       Top = 4
  2909.       Width = 389
  2910.       Height = 257
  2911.       Caption = ' Nadawca '
  2912.       Font.Color = clBlack
  2913.       Font.Height = -11
  2914.       Font.Name = 'MS Sans Serif'
  2915.       Font.Style = []
  2916.       ParentFont = False
  2917.       TabOrder = 0
  2918.       object Label1: TLabel
  2919.         Left = 12
  2920.         Top = 20
  2921.         Width = 101
  2922.         Height = 13
  2923.         Caption = 'Imi∩┐╜ i nazwisko/Firma'
  2924.       end
  2925.       object Label2: TLabel
  2926.         Left = 12
  2927.         Top = 40
  2928.         Width = 114
  2929.         Height = 13
  2930.         Caption = 'Ulica, nr domu, nr lokalu'
  2931.       end
  2932.       object Label3: TLabel
  2933.         Left = 12
  2934.         Top = 60
  2935.         Width = 67
  2936.         Height = 13
  2937.         Caption = 'Kod pocztowy'
  2938.       end
  2939.       object Label4: TLabel
  2940.         Left = 12
  2941.         Top = 80
  2942.         Width = 61
  2943.         Height = 13
  2944.         Caption = 'Miejscowo∩┐╜∩┐╜'
  2945.       end
  2946.       object Label5: TLabel
  2947.         Left = 12
  2948.         Top = 100
  2949.         Width = 32
  2950.         Height = 13
  2951.         Caption = 'Powiat'
  2952.       end
  2953.       object Label6: TLabel
  2954.         Left = 12
  2955.         Top = 120
  2956.         Width = 67
  2957.         Height = 13
  2958.         Caption = 'Wojew∩┐╜dztwo'
  2959.       end
  2960.       object Label7: TLabel
  2961.         Left = 12
  2962.         Top = 140
  2963.         Width = 24
  2964.         Height = 13
  2965.         Caption = 'Logo'
  2966.       end
  2967.       object Label8: TLabel
  2968.         Left = 12
  2969.         Top = 160
  2970.         Width = 25
  2971.         Height = 13
  2972.         Caption = 'Bank'
  2973.       end
  2974.       object Label9: TLabel
  2975.         Left = 12
  2976.         Top = 180
  2977.         Width = 79
  2978.         Height = 13
  2979.         Caption = 'Numer rachunku'
  2980.       end
  2981.       object Label70: TLabel
  2982.         Left = 12
  2983.         Top = 200
  2984.         Width = 36
  2985.         Height = 13
  2986.         Caption = 'Telefon'
  2987.       end
  2988.       object imie_i_nazwisko: TEdit
  2989.         Left = 136
  2990.         Top = 16
  2991.         Width = 245
  2992.         Height = 21
  2993.         MaxLength = 80
  2994.         TabOrder = 0
  2995.         Text = 'imie_i_nazwisko'
  2996.         OnEnter = imie_i_nazwiskoEnter
  2997.         OnExit = imie_i_nazwiskoExit
  2998.       end
  2999.       object adres: TEdit
  3000.         Left = 136
  3001.         Top = 36
  3002.         Width = 245
  3003.         Height = 21
  3004.         MaxLength = 80
  3005.         TabOrder = 1
  3006.         Text = 'adres'
  3007.         OnEnter = adresEnter
  3008.         OnExit = adresExit
  3009.       end
  3010.       object kod_pocztowy: TEdit
  3011.         Left = 136
  3012.         Top = 56
  3013.         Width = 245
  3014.         Height = 21
  3015.         MaxLength = 10
  3016.         TabOrder = 2
  3017.         Text = 'kod_pocztowy'
  3018.         OnEnter = kod_pocztowyEnter
  3019.         OnExit = kod_pocztowyExit
  3020.       end
  3021.       object miejscowosc: TEdit
  3022.         Left = 136
  3023.         Top = 76
  3024.         Width = 245
  3025.         Height = 21
  3026.         MaxLength = 50
  3027.         TabOrder = 3
  3028.         Text = 'miejscowosc'
  3029.         OnEnter = miejscowoscEnter
  3030.         OnExit = miejscowoscExit
  3031.       end
  3032.       object powiat: TEdit
  3033.         Left = 136
  3034.         Top = 96
  3035.         Width = 245
  3036.         Height = 21
  3037.         MaxLength = 25
  3038.         TabOrder = 4
  3039.         Text = 'powiat'
  3040.         OnEnter = powiatEnter
  3041.         OnExit = powiatExit
  3042.       end
  3043.       object wojewodztwo: TEdit
  3044.         Left = 136
  3045.         Top = 116
  3046.         Width = 245
  3047.         Height = 21
  3048.         MaxLength = 25
  3049.         TabOrder = 5
  3050.         Text = 'wojewodztwo'
  3051.         OnEnter = wojewodztwoEnter
  3052.         OnExit = wojewodztwoExit
  3053.       end
  3054.       object logo: TEdit
  3055.         Left = 136
  3056.         Top = 136
  3057.         Width = 245
  3058.         Height = 21
  3059.         MaxLength = 100
  3060.         TabOrder = 6
  3061.         Text = 'logo'
  3062.         OnEnter = logoEnter
  3063.         OnExit = logoExit
  3064.       end
  3065.       object bLogo: TButton
  3066.         Left = 358
  3067.         Top = 170
  3068.         Width = 21
  3069.         Height = 18
  3070.         Caption = '...'
  3071.         TabOrder = 7
  3072.         TabStop = False
  3073.         OnClick = bLogoClick
  3074.       end
  3075.       object bank: TEdit
  3076.         Left = 136
  3077.         Top = 156
  3078.         Width = 245
  3079.         Height = 21
  3080.         MaxLength = 50
  3081.         TabOrder = 8
  3082.         Text = 'bank'
  3083.         OnEnter = bankEnter
  3084.         OnExit = bankExit
  3085.       end
  3086.       object numer_rachunku: TEdit
  3087.         Left = 136
  3088.         Top = 176
  3089.         Width = 245
  3090.         Height = 21
  3091.         MaxLength = 30
  3092.         TabOrder = 9
  3093.         Text = 'numer_rachunku'
  3094.         OnEnter = numer_rachunkuEnter
  3095.         OnExit = numer_rachunkuExit
  3096.       end
  3097.       object b_nowy1: TButton
  3098.         Left = 8
  3099.         Top = 224
  3100.         Width = 69
  3101.         Height = 25
  3102.         Caption = 'Nowy'
  3103.         TabOrder = 11
  3104.         OnClick = b_nowy1Click
  3105.       end
  3106.       object b_usun1: TButton
  3107.         Left = 76
  3108.         Top = 224
  3109.         Width = 61
  3110.         Height = 25
  3111.         Caption = 'Usu∩┐╜'
  3112.         TabOrder = 12
  3113.         OnClick = b_usun1Click
  3114.       end
  3115.       object b_zapis1: TButton
  3116.         Left = 136
  3117.         Top = 224
  3118.         Width = 157
  3119.         Height = 25
  3120.         Caption = 'Dodaj do rejestru nadawc∩┐╜w'
  3121.         TabOrder = 13
  3122.         OnClick = b_zapis1Click
  3123.       end
  3124.       object b_korekta1: TButton
  3125.         Left = 292
  3126.         Top = 224
  3127.         Width = 89
  3128.         Height = 25
  3129.         Caption = 'Zapisz zmiany'
  3130.         TabOrder = 14
  3131.         OnClick = b_korekta1Click
  3132.       end
  3133.       object a1: TEdit
  3134.         Left = 96
  3135.         Top = 16
  3136.         Width = 21
  3137.         Height = 21
  3138.         TabOrder = 15
  3139.         Text = 'a1'
  3140.         Visible = False
  3141.       end
  3142.       object a2: TEdit
  3143.         Left = 96
  3144.         Top = 36
  3145.         Width = 21
  3146.         Height = 21
  3147.         TabOrder = 16
  3148.         Text = 'a2'
  3149.         Visible = False
  3150.       end
  3151.       object a3: TEdit
  3152.         Left = 96
  3153.         Top = 56
  3154.         Width = 21
  3155.         Height = 21
  3156.         TabOrder = 17
  3157.         Text = 'a3'
  3158.         Visible = False
  3159.       end
  3160.       object a4: TEdit
  3161.         Left = 96
  3162.         Top = 76
  3163.         Width = 21
  3164.         Height = 21
  3165.         TabOrder = 18
  3166.         Text = 'a4'
  3167.         Visible = False
  3168.       end
  3169.       object a5: TEdit
  3170.         Left = 96
  3171.         Top = 96
  3172.         Width = 21
  3173.         Height = 21
  3174.         TabOrder = 19
  3175.         Text = 'a5'
  3176.         Visible = False
  3177.       end
  3178.       object a6: TEdit
  3179.         Left = 96
  3180.         Top = 116
  3181.         Width = 21
  3182.         Height = 21
  3183.         TabOrder = 20
  3184.         Text = 'a6'
  3185.         Visible = False
  3186.       end
  3187.       object a7: TEdit
  3188.         Left = 96
  3189.         Top = 136
  3190.         Width = 21
  3191.         Height = 21
  3192.         TabOrder = 21
  3193.         Text = 'a7'
  3194.         Visible = False
  3195.       end
  3196.       object a8: TEdit
  3197.         Left = 96
  3198.         Top = 156
  3199.         Width = 21
  3200.         Height = 21
  3201.         TabOrder = 22
  3202.         Text = 'a8'
  3203.         Visible = False
  3204.       end
  3205.       object a9: TEdit
  3206.         Left = 96
  3207.         Top = 176
  3208.         Width = 21
  3209.         Height = 21
  3210.         TabOrder = 23
  3211.         Text = 'a9'
  3212.         Visible = False
  3213.       end
  3214.       object telefon: TEdit
  3215.         Left = 136
  3216.         Top = 196
  3217.         Width = 245
  3218.         Height = 21
  3219.         MaxLength = 50
  3220.         TabOrder = 10
  3221.         Text = 'telefon'
  3222.         OnEnter = telefonEnter
  3223.         OnExit = telefonExit
  3224.       end
  3225.       object Panel5: TPanel
  3226.         Left = 292
  3227.         Top = 12
  3228.         Width = 93
  3229.         Height = 209
  3230.         Caption = 'Panel5'
  3231.         TabOrder = 24
  3232.         Visible = False
  3233.         object Label30: TLabel
  3234.           Left = 12
  3235.           Top = 8
  3236.           Width = 3
  3237.           Height = 13
  3238.         end
  3239.         object Label31: TLabel
  3240.           Left = 12
  3241.           Top = 28
  3242.           Width = 3
  3243.           Height = 13
  3244.         end
  3245.         object Label32: TLabel
  3246.           Left = 12
  3247.           Top = 48
  3248.           Width = 3
  3249.           Height = 13
  3250.         end
  3251.         object Label33: TLabel
  3252.           Left = 12
  3253.           Top = 68
  3254.           Width = 3
  3255.           Height = 13
  3256.         end
  3257.         object Label34: TLabel
  3258.           Left = 12
  3259.           Top = 88
  3260.           Width = 3
  3261.           Height = 13
  3262.         end
  3263.         object Label35: TLabel
  3264.           Left = 12
  3265.           Top = 108
  3266.           Width = 3
  3267.           Height = 13
  3268.         end
  3269.         object Label36: TLabel
  3270.           Left = 12
  3271.           Top = 128
  3272.           Width = 3
  3273.           Height = 13
  3274.         end
  3275.         object Label37: TLabel
  3276.           Left = 12
  3277.           Top = 148
  3278.           Width = 3
  3279.           Height = 13
  3280.         end
  3281.         object Label38: TLabel
  3282.           Left = 12
  3283.           Top = 168
  3284.           Width = 3
  3285.           Height = 13
  3286.         end
  3287.         object Label69: TLabel
  3288.           Left = 8
  3289.           Top = 192
  3290.           Width = 3
  3291.           Height = 13
  3292.         end
  3293.       end
  3294.       object a10: TEdit
  3295.         Left = 96
  3296.         Top = 196
  3297.         Width = 25
  3298.         Height = 21
  3299.         TabStop = False
  3300.         TabOrder = 25
  3301.         Text = 'a10'
  3302.         Visible = False
  3303.       end
  3304.     end
  3305.   end
  3306.   object OpenDialog1: TOpenDialog
  3307.     FileEditStyle = fsEdit
  3308.     Left = 16
  3309.   end
  3310.   object dsNadawca: TDataSource
  3311.     Left = 48
  3312.     Top = 32
  3313.   end
  3314.   object T_Adresat: TTable
  3315.     TableName = 'private.DB'
  3316.     Left = 412
  3317.     Top = 28
  3318.   end
  3319.   object dsAdresat: TDataSource
  3320.     DataSet = T_Adresat
  3321.     Left = 440
  3322.     Top = 28
  3323.   end
  3324.   object dsNadawca2: TDataSource
  3325.     Left = 56
  3326.     Top = 220
  3327.   end
  3328.   object Query1: TQuery
  3329.     DataSource = dsNadawca2
  3330.     Left = 28
  3331.     Top = 220
  3332.   end
  3333.   object Query2: TQuery
  3334.     DataSource = dsAdresat2
  3335.     Left = 420
  3336.     Top = 220
  3337.   end
  3338.   object dsAdresat2: TDataSource
  3339.     DataSet = T_Adresat
  3340.     Left = 448
  3341.     Top = 220
  3342.   end
  3343.   object PrintDialog1: TPrintDialog
  3344.     Left = 44
  3345.   end
  3346.   object FontDialog1: TFontDialog
  3347.     Font.Color = clWindowText
  3348.     Font.Height = -11
  3349.     Font.Name = 'MS Sans Serif'
  3350.     Font.Style = []
  3351.     MinFontSize = 0
  3352.     MaxFontSize = 0
  3353.     Left = 72
  3354.   end
  3355.   object Query3: TQuery
  3356.     Left = 532
  3357.     Top = 256
  3358.   end
  3359.   object dsQuery3: TDataSource
  3360.     DataSet = Query3
  3361.     Left = 560
  3362.     Top = 256
  3363.   end
  3364.   object MarsCaption1: TMarsCaption
  3365.     ActiveBeginColor = clBlack
  3366.     ActiveEndColor = clBlue
  3367.     ActiveFontColor = clYellow
  3368.     InactiveBeginColor = clGray
  3369.     InactiveEndColor = clSilver
  3370.     InactiveFontColor = clBlack
  3371.     ApplicationNameFont.Color = clWindowText
  3372.     ApplicationNameFont.Height = -11
  3373.     ApplicationNameFont.Name = 'MS Sans Serif'
  3374.     ApplicationNameFont.Style = [fsBold]
  3375.     CaptionFont.Color = clWindowText
  3376.     CaptionFont.Height = -11
  3377.     CaptionFont.Name = 'MS Sans Serif'
  3378.     CaptionFont.Style = []
  3379.     NumColors = 64
  3380.     AutoSize = False
  3381.     Left = 100
  3382.   end
  3383.   object T_Nadawca: TTable
  3384.     TableName = 'nadawca.DB'
  3385.     Left = 20
  3386.     Top = 32
  3387.   end
  3388.   object dsMiejscowosci: TDataSource
  3389.     DataSet = T_Miejscowosci
  3390.     Left = 116
  3391.     Top = 220
  3392.   end
  3393.   object T_Miejscowosci: TTable
  3394.     TableName = 'miejsc.DB'
  3395.     Left = 88
  3396.     Top = 220
  3397.   end
  3398.   object T_Miasta: TTable
  3399.     TableName = 'miasta.db'
  3400.     Left = 152
  3401.     Top = 220
  3402.   end
  3403.   object dsMiasta: TDataSource
  3404.     DataSet = T_Miasta
  3405.     Left = 180
  3406.     Top = 220
  3407.   end
  3408.   object Q_Miasta: TQuery
  3409.     Left = 228
  3410.     Top = 220
  3411.   end
  3412.   object dsQ_Miasta: TDataSource
  3413.     DataSet = Q_Miasta
  3414.     Left = 256
  3415.     Top = 220
  3416.   end
  3417. end
  3418.