unit1.dfm

Delphi7编程80例(完全版)

object Form1: TForm1
  Left = 118
  Top = 130
  Width = 617
  Height = 316
  Caption = #22270#35937#29305#27530#25928#26524
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 10
    Top = 10
    Width = 250
    Height = 250
    Picture.Data = {
      07544269746D6170AEDA0200424DAEDA0200000000003600000028000000F900
      0000FA000000010018000000000078DA0200C40E0000C40E0000000000000000
      0000A68680A1847F9A8486968386958285948184938083938083958285948184
      938083927F828F7F80726666433C3943423E5458525B645A5762586872664246
      3A1D1D1130241A392B1F493D337F7972827C777D76737C7572837B7C7F76797F
      76797D73797D727A7B707A7D7078827577716662413730403B324A453C605F55
      61645B696A666A6F6E696E6F6E71766F70746E6D716E6B746E6972716C6E7874
      734A473F363227433E356A6262685C62776B71877A7C8A7D7F998B8DA09294A9
      989BB29FA2B4A1A4B9A4A7BAA5A8BCA5A9B8A5A8AFA1A3AFA1A3AD9C9FAC9599
      B3989CB79CA0B4969BB4969BB59A9EB0979BA790949F8E919E9092A092949F91
      939B8D8F998B8D9486889284869082848D7F818D7F818B7F7F84817D847F7C81
      7C797D7A767B767379747176736F726F6B75706D807B78867F7C9589899D8C8F
      A39093A38E919E878B9A8387978689988A8C8D87888D8B8B949494AA9FA1A597
      999E90929C8E909C8E90A29496AA9C9EA99B9DA99B9DAD9FA1AFA1A3B1A3A5B2
      A2A3B5A3A4B8A3A5BAA4A6BAA4A6BBA0A3BEA1A4C3A4A7C5A6A9C7A6AAC8A9AC
      C1A9ABB8A2A4B7A3A2BAA8A7B9A7A8B5A6A4B4A7A5B4A6A7B0A2A3AFA3A1B1A5
      A5B7ABB1AFA4AEA9A5B0AEAEBAADB0BE97A0AD7F8895272F36242A2F3A3A3A45
      414047413A3226142C200E938676BDB0A0C4B6AAB8A9A0B5A59EAF9F99B09F9C
      B9A8A5D2BDBBE4C8C7F0D4D4EAD2D2EAD8D9F8EAEBFFFAFAFFFDFFFFFCFFFFF2
      F8F8EAF0F2E1EAFDE1E7FFE0E5F9D9DEF3D3D8F0D0D5F1D1D6F1D1D6EDCDD2EC
      CCD1EBCBD0EDCDD2EDCED1F2D0D1F1CFD0F0CECFEFCDCEEFCDCEEDCBCCEDCBCC
      EDCBCCEDCBCCEDCBCCEBCBCCE6C6C7E6C7C8E2C3C4DDBFBEDCBFBBDEC1BDDBBE
      B9DBBFB8DBBFB8DBBFB8DBC0B6DDC1BADCC0B9DABEB7D9BDB6D7BBB4D6BAB3DB
      BFB8DBBFB8DBBFB8DBBFB8DBBFB8D9BFB8DAC1BDDAC1BDD8BFBBD8BFBBD7BEBA
      D9C0BCD5BCB8D0B7B3D2B9B5D4BBB7D1B8B4D9BCB8D9BCB8D9BCB8D9BCB8D9BC
      B8D9BCB8DCBFBBDDC0BCD0B3AF00AA8A84A1847F9B8587978487968386958285
      9481849481849582859582859380839380839080816B5F5F3F38354645415C60
      5A646D635A655B6D776B3B3F3317170B3D31275143376D6157847E77807A757D
      76737D76737C74757F76797F76797D727A7D727C7B6F7B7D70788073756E635F
      3D332C443F364B463D5F5E5465685F6B6C68696E6D686D6E6B6F746D6E726C6B
      6F716E77706B746F6A6C797574524F473B372C4F4A41837B7B867A80988C92A0
      9294A19395A9989BAE9DA0B4A1A4BAA5A8B9A4A7B9A2A6BAA3A7BEA5A9BBA6A9
      B3A6A8B0A5A7ADA0A2AA979AAF989CB49B9FB39A9EB2999DB19A9EAD989BA592
      959D8F919F9294A5989AA5989A9C8F91998C8E9B8E9095888A91848690838592
      858792888885857F87847F84817C7F7F797D7A757F7C777A7A7473736D76736E
      7E7B76827D7A8C80809483869F8C8FAC9599A58E929F888C98858895888A8A85
      868C8C8C979999A1999A978A8C9487899A8D8F9C8F91A09395A5989AA49799A5
      989AA99C9EAC9FA1AEA1A3AEA0A2B1A0A3B4A1A4B5A2A5B7A2A5B9A0A4BCA1A5
      C0A2A7C3A3A8C4A4A9C5A6A9C6ACACBBA3A3BBA4A2BFAAA8BEA9A8BCA9A6B7A6
      A3B3A1A0AE9F9DACA09CAB9E9CB7A4ADAE9CA9A298A5A9A2B1AFAEBEB3B8C7AC
      B3C2676C754A4D552D2C2E3C3738403A35433824362A18665949A19484C1B3A7
      BDAEA5BCACA5B5A59FB4A3A0B9A8A5D0BBBADEC2C1EFD3D3EDD3D3E7D5D6F4E4
      E5FFF3F3FFFCFFFFFCFFFFF4FAFCEEF4F7E6EFFEE2E8FFE5EAFFE2E7FADADFF4
      D4D9F3D3D8F2D2D7EFCFD4EDCDD2ECCCD1EDCDD2EECFD2F3D1D2F2D0D1F1CFD0
      F0CECFF0CECFEECCCDEECCCDEECCCDEECCCDEECCCDECCCCDE7C7C8EACBCCE8C9
      CAE2C4C3DDC0BCDFC2BEDEC1BCDEC2BBDEC2BBDEC2BBDEC3B9E0C5BBE0C5BBDD
      C2B8DBC0B6DABFB5D8BDB3DBC0B6DBC0B6DBC0B6DBC0B6DBC0B6D9BFB8D9C0BC
      D9C0BCD7BEBAD7BEBAD6BDB9DAC1BDD5BCB8D0B7B3D2B9B5D4BBB7D0B7B3D9BC
      B8D9BCB8D9BCB8D9BCB8D9BCB8D9BCB8DBBEBADABDB9D3B6B200A586859E8484
      9886879685889885889B84889D84889D84889A7F83977E829A83879E878B7868
      694F474052504560625662665B6C726771776C81847B39332C3127207A67628C
      75738E7977857B7B827A7A8179798078797D77787D77787C77787A7577787577
      767375787375776E71635D5834322840403255584962665A646A65676C6B686F
      72667070656D6D676C6D656A6B646869686A6B6A6868696465534E4D9A8E8EA7
      999AB1A0A3B6A3A6B5A1A6B8A3A6B9A4A7B9A4A7BBA4A8BBA4A8BAA3A7BBA4A8
      C0A9ADC0A9ADBDA6AABAA5A8B7AAACB4A9ABB5A8AAB5A7A9B6A5A8B6A5A8B29F
      A2AF9C9FAD9A9DAE9B9EB19EA1A89A9BAA9C9DAEA0A1AB9EA0A193979E9094A4
      969A9E90969C8E949C8D959C8F979E92989D90929C8F91908283988A8BA19192
      94858393848292817E91807D8F7F798E7D7A8D7A77867170927A7AAE9696AF95
      95A890909A8685948583988F8CA7A29FACA9A5736E6B6964618F8885948D8AAC
      A3A0ABA29F978B89A59896A59896A29593A99A98AE9F9DAF9C9FB09B9EB39A9E
      B59A9EB89A9FBD9DA2BC9CA1B7999EB7999EB79CA0B79EA2C3A7ADC1A5ABC0A4
      AABDA2A6BCA1A5B9A0A4BFA7A7C0A8AABFA7A7BCA4A4BAA3A1C2A7ABBDA1A7B3
      9BA3B59EA6B5A0A8AF9FA6C1B1B8C1B3B7C4B9BC7D7274473C3E2A1E1E3D3028
      3B2B244A382D574639877467CAB7A8C6B3A4B6A699B3A599B8ACA0CDBEB5D8BC
      B5F3D3CDF3D6CFE2CCC6E4D4CDFBF1EAFFFEFDFDFBFBF9F1F8FAECF8FAE7F6FF
      E8F0FEE9ECFBE4E8FAE1E5F7DEE2F9DBE0F6D6DBF3D1D7F3CFD5F4CED4F7CED5
      F7CFD4F9D4D6F9D2D4F7D5D6F5D3D4EECECFEECFD0ECD0D0E9CFCFE9CFCFE6CE
      CEE8CECEEACCCBECCDCCEDCECBEBCCC9E7C8C5E6C7C4E3C4C1E3C4C1E1C2BFE1
      C3BEE0C2BDE3C6C1E1C7C1DFC5BFDFC5BFDEC4BEDDC3BDDCC2BCDDC3BDDDC3BD
      DDC3BDDEC4BEDEC4BEDDC2BEDCC1BDDBC0BCDABFBBD9BEBADBC0BCDBC0BCD9BE
      BAD9BEBAD8BDB9D7BCB8D5BAB6D6BBB7D7BCB8D7BCB8D9BEBAD9BEBAD3B8B4D4
      B9B5D9BEBA00A48586A086869685889685889885889B84889F84889F84889E80
      85977C809A81859E878B6E5F5D50494052514360635462665A6C726772766B86
      877E3B322E4B3F3B8B7674917777917979857A7C827A7B81797A8078797D7778
      7C77787C7778787676767676747474767474777073605C573231273F4232555A
      4B62695C656A68676C6D686F72656F6F636E6C606867666C6B686D6C64666666
      64646B6667837B7CB0A2A4B4A3A6B9A4A7BBA6A9BAA3A7BBA4A8BBA4A8BBA4A8
      BCA5A9BCA5A9BEA7ABBEA7ABC0A9ADBFA8ACBDA6AABBA6A9B5A7A9B4A7A9B4A7
      A9B4A7A9B5A7A9B5A7A9B1A0A3AF9EA1AF9C9FB09DA0B09DA0A7999AA79B9BA8
      9C9CA4999B9D92959A8F929A8E94998C94988B9392879191869090858F9B8D93
      9A8C929384889B8D8FA291949686879889879F8E8BA08E8D9C8B889B8A879485
      82938180958481A89592B19D9CB7A4A18E7F7C8C7F7DA69F9CAEABA6A7A4A07C
      7C76726F6A87837E88847FAAA49FB4ABA79B908C978B879C908CA0918EA0918E
      A29391AC999CB49FA2C5AAAECAACB1CEAEB3CCAAB0CBA9AFC5A5AAC2A4A9C0A5
      A9BFA5ABBEA1AABE9FA8BC9DA6B69AA0B6979EB4999DB79C9FB89DA0BAA0A0BC
      A2A2BFA6A4D1B2B5CCACB1C5A7ACC5AAAEC7ACB0C0A9ADBDA6AABDAAADC9B8BB
      B2A4A6998B8D8B7D7E6F605E51403D35221A3D291E695347C3AE9FC9B5A4C5B5
      A5B9AC9EB4A89CC6B6AADCC1B7F2D1C8F2D3CAE6D0C5E6D7CEFCF3EAFDFEFAFB
      FBFBF9F1FBF9ECFAFBE9FAFFEEF5FFEEF1FDEAEDFCE7EAFBE4E8FCE1E5F6D8DD
      F5D3D9F4D0D6F7CED5F8CED5F9D0D5FAD3D5F8D1D3FAD5D7F7D5D6F2D0D1F0D1
      D2EDD1D1E7CFCFE6CECEE3CECDE4CDCBE9CBCAEECDCAEDCECBEECDCAEBCAC7E8
      C9C6E7C8C5E8C7C4E7C6C3E4C5C2E6C5C2E3C6C2E1C6C2E0C5C1DFC4C0DEC3BF
      DDC2BEDDC2BEDDC2BEDDC2BEDDC2BEDEC3BFDEC3BFDDC2BEDCC1BDDBC0BCDABF
      BBDABFBBDBC0BCDBC0BCDABFBBD9BEBAD8BDB9D7BCB8D5BAB6D6BBB7D7BCB8D8
      BDB9D9BEBAD9BEBAD5BAB6D5BAB6DABFBB00A38787A48C8C9A878A9A878A9A87
      8A9D868AA1868AA1868A9E8387977C809B8488998487473A38524D4455554763
      665764685C6E726775766C7A7870685F5B8C807C947F7E937B7B978183857A7C
      827A7B81797A8078797D77787C77787C77787876767676767474747674747B76
      785E5B562F30264248375A5F50676E61676C6A676C6D666D70666E6E656D6C70
      72726F6F6F646262686364999192B1A6A8BCAEB0BEABAEBEA9ACC6ADB1C9B0B4
      CAB1B5C7B0B4C6AFB3C5AEB2C5AEB2C5AEB2C8B1B5C6AFB3BFA8ACBDA6AABEA7
      ABBEA9ACB7A6A9B4A6A8B3A5A7B1A3A5B0A2A4B0A2A4B2A1A4B3A2A5B4A1A4B1
      9EA1AE9B9EA39D9E9E9C9B989696959294908F93908F9389878D86858E83828B
      7B7A8374757F71727C75788070727A6C6F7474777B7275795C61625E6463666C
      6B696F6E69706D67706D6B7674697472646C6B686D6C7C7E7E8B8D8D9095949D
      A3A2A0ABA983908E6C7A786E75727278738D8E8A8C8D89A7A4A0BCB7B4ABA4A1
      827674928583B8A9A7BDAEACC2B3B1CABEBCCDBFC0D4BFC1D4BCBCD4B7BAD9B8
      BCDAB8B9D4B4B5D3B2B6D2B3B4D3B3B8DDBAC4DCB7C1D7B4BED2B0B7D0AEB5CF
      ADB3C4A5A8C7A8ABD0B1B2D4B8B8DABCBBE1BCBEDEB9BBD9B7B8DBB8BCDABABB
      D2B6B6D4B9BCC4AEB0C5B1B0D3BFBED6C4C5D8C6C7D9C6C9D4BFC1C4AEA9A68E
      88937A70B59B8FC1A79BCFB9AECAB5ADC7B4ADD3BDB7E4CAC4E6C9C2E9CDC6E5
      D3C8EDE1D7FBF5EAF9FBF5F9FAF8F9F5FBFBF3FEFDF0FEFFF5FBFFF6F8FFF3F5
      FFF0F3FFEEF1FFEBEFFADFE3FBD9DFFAD6DCFBD2D9FCD2D9FCD3D8FAD2D4F9D2
      D4FFD8DAFDD8DAFAD5D7F6D6D7F4D5D6EDD1D1EBCFCFE6CCCCE6CAC9EBC9C9F2
      CCCAF3D0CDF6D0CEF5CFCDF2CFCCEECBC8F0CAC8EEC8C6ECC9C6EDC7C5E6C7C4
      E4C7C3E3C6C2E2C5C1E2C5C1E1C4C0E2C5C1E1C4C0E1C4C0E0C3BFDFC2BEDFC2
      BEE0C3BFE0C3BFDEC1BDDEC1BDDDC0BCDFC2BEDEC1BDDDC0BCDCBFBBDCBFBBDB
      BEBAD9BCB8DABDB9DABDB9DBBEBADCBFBBDDC0BCDBBEBADBBEBAE0C3BF00A288
      88A38E8D98878A9A878A9A878A9D868AA1868AA1868A9C81859980849E898C8E
      7B7E3C302E54524857594D66685C676B6072736A77786F726F6A837A77948785
      8E787A937B7D947F81857A7C827A7B81797A8078797D77787C77787C77787876
      767676767474747474747976785B5B55303127464C3B5D6253676E61696E6C67
      6C6D646B6E646C6C676D6C777575746E6F6D67687B7374AB9EA0BBADAFC3B0B3
      C2ABAFC7AEB2CFB4B8D0B5B9D1B6BACDB6BACCB5B9CBB4B8CAB3B7C9B2B6C8B1
      B5C6AFB3BFA8ACBDA6AABEA7ABBEA9ACBBAAAEB8A7ABB6A5A9B09FA3AF9EA2AE
      9DA1B2A1A5B3A2A6B1A0A4AE9DA1AB9A9EA19F9F999E9D9296978F93948A8F92
      888F92858B907B838A767E856D767F6C757E6A757D66757E5F6E7757676E5B6B
      7157676D45585B445859425755425856485E5C48615D486562435E5B435B594B
      605E5365645A6A697C8E8D8C9E9D788E8C566E6C46615E505F5B5B6663727B78
      777E7B929391ADABAAA9A5A4918989A39999C5B7B8C3B5B6BFB3B1B8B2ADBAB1
      AEC0AEADC3AEACC6ACACCCACADCBACABCCAAAACDABACCDAEADD1B0B4D4ACB7D2
      AAB5CFA7B2C9A4ACC7A2AAC6A2A8CBAAAED2B1B5DBBBBCDBBCBDDBBCBBDBB5B5
      D8B2B2D7B1B1D7B2B4D5B3B3CDAEADC7A8A9C2A8A8C2ABA9CDB8B6D0BBBACEBA
      B9C8B4B9CBB6B9DDC4C2D4B9B5CBAEA9C4A7A0C3A69DC7ABA4CCB2ACD2B9B5DB
      C2BEE5CBC5E4C7C2E8CEC7E4D3CAF0E4DAFCF6EBF9FBF5F9FAF8F8F6FCFAF5FE
      FCF3FFFBF5FAFCF6F7FBF3F4FEF1F3FEF0F2FFECF0FDE4E8FEDCE2FDD9DFFDD4
      DBFED4DBFED5DAFCD4D6FBD3D5FFD9DBFFDADCFBD6D8FAD8D9F7D7D8F2D3D4EF
      D0D1EBCFCFEBCCCBEECACAF5CECCF6D0CEF8D1CFF7D0CEF6D0CEEFC9C7EFC8C6
      EEC7C5ECC6C4EDC6C4E8C7C4E6C7C4E5C6C3E4C5C2E3C4C1E2C3C0E5C6C3E4C5
      C2E3C4C1E2C3C0E0C1BEE0C1BEE2C3C0E1C2BFE0C1BEDFC0BDDFC0BDE0C1BEE0
      C1BEDFC0BDDEBFBCDDBEBBDCBDBADABBB8DBBCB9DCBDBADDBEBBDEBFBCDEBFBC
      DDBEBBDCBDBAE2C3C000A18989A38E8D99888B9B888B9B888B9E878BA0878BA2
      878B9980849A83879B888B7C6B6E3E343458564E5C5E526A6C606B6F6475766D
      7C7A7276726D9084829083818F7A7C927C7E8E797B857A7C827A7B81797A8078
      797D77787C77787C77787876767676767474747474747875775C5C5634352B4A
      503F5C6354666D606A6F6D686C6D656A6D656A6B6A6C6C655F606D62648D8082
      A39597C2AFB2C6B3B6D0BBBECFB6BAD6BBBFD4B6BBD1B3B8D3B5BACEB7BBCDB6
      BACBB4B8C9B2B6C8B1B5C4ADB1C3ACB0BFA8ACBEA7ABBEA7ABBDA8ABBEAAAFB9
      A8ACB7A6AAB1A0A4B09FA3AF9EA2B0A1A5B1A0A4AC9DA1A99A9EA7989C989C9D
      929D9B8B97978793937F8C8E7D8A8C7D8C8F718187697C8162757C63757C6176
      7E5C778157727C4B676E4C6A6F48666B3F60633C5E5E325656325656395E5C39
      615F2F5C592C56553159573B605E3B5A5B3857565271705C7A7B486768335554
      2B4F4F344D4940544F4758544E5D5969726F89908DA0A5A3ADABAAB8B4B3C3BB
      BBBBB1B1AEA7A4B2B2ACB2AEA9B5A9A5B8A7A4BBA6A4BB9F9EBD9F9EBFA09FC1
      A2A1C4A5A4C9A9AAC9A1ACC99FAAC89EA9C39CA4C39CA4C29CA2CBA8ACD2AFB3
      D7B7B8D5B5B6D0B1B0D2ACACD0AAAACFA9A9D0ACACCFABABC5A3A3BD9E9DC5A9
      A8C7ABAACEB5B3CDB4B2C5ADADD1BAC2CAB0B6CEB2B2CCAEADC9AAA7D6B6B1CD
      ADA7C3A6A1CCAFABD4B8B7D7BEBCE3C8C4E5CBC5E9D1CBE2D1C8F1E7DDFDF7EC
      FCFCF6FAFBF9F9F8FCF9F7FDFAF4FFF8F5F7F8F6F6FAF4F5FBF3F4FCF1F3FFEF
      F2FEE7EBFFE1E6FEDCE2FFD6DDFFD6DDFFD7DCFFD7D9FED6D8FFDADCFFDADCFB
      D6D8FBD9DAFBD9DAF5D5D6F4D4D5F1D2D3F2D0D0F3CDCDF9D0CEF9D2D0FBD2D0
      F9D0CEF6CFCDF0C9C7F1C8C6F0C7C5EDC6C4EFC6C4E9C8C5E7C8C5E5C6C3E5C6
      C3E4C5C2E3C4C1E7C8C5E5C6C3E4C5C2E2C3C0E0C1BEE0C1BEE3C4C1E2C3C0E1