unit1.dfm

《Delphi 7应用编程150例》源码（全）

        7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF
        75EF7EEBDD7BDFBAF75EF7EEBDD72F7AE9CA7CBAF7BF75EEBDEFDD7BAEC7BF75
        B02BD48890FF00BEFC0F7A3D3807A74EB1446C0DAE3FD6FF000FA7B6891EBD3A
        07EDE9F31B03960C49500FFB7FF78F69E6714E9F8D7CCF4B8A35FA0FF10413CF
        1F9F65EE727A54A3A5651270BF5E3E87FD71F5F691CF4A9074B0A241C7171FEC
        3FDF7E3DA290F4AE3031D2C31F15C80381FE23FE23DA290F4B631D2C6823FA0F
        AFFAFF00EF7ED1487A5918E9614715ED61F51C9FF5BFE23DA273D2D41D2A6923
        FD3F417FCFD2C3FA7D3F1ED239E95A8E9414D18B0BFD38F55AE4FE7EBED3B1F4
        E9F41402BD3C409F503E87F3FE1C7D7DB2DD3E05074E28B6B703FD8FE7FE2BED
        A27A7003E63A90D4FE54281CA1606CC3F06DC7BD06D06B4AF5602A69D168DF78
        CABA1CEBB48F24CB6D61CDCDAC6E541F632DAE68E4B6000A1E8A6ED5966CF0E9
        1B97AB69E80BC7300000A47D0A91FEABFC7D98411699402BDDD2595F52E1BA29
        1BF26A912BB07242B9E41FF6A3FF0015F63BDB154038F2E80BBDB4816AAC695C
        F411BBB484B31249F66A4D7A0E01FB7AEC1B8FF1F743D688EBBF7AEB5D75EE9D
        7BAF7BF75EEBDEE8475BE9C68E3B904FFB0FF5EDEE92D42D3A516CB53ABA7F49
        B4703EA3FDE7DA2295E8C01F9F5263A9BB727FD63EDA64F31D6C357A741574E8
        9EA717B7D2FF00E1FEF1ED398DC9C0EAE4AD0D4F4D5515F4E49FA5BF1CFF008F
        B75617C74CB3AE7A4F544EA49296B1F6A9548A57A4CEC3A6C772C78FA7FBDFB7
        40A7DBD325ABD63F7A20F55EBDEF5D7BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD
        7BAF7BD8CF5EEB205BFBF114EAF8F4EB895B7BF01D6A83CBAE8293EFD4F9F5AA
        1EB284FEBEEB8EAD9EB9681EF75EBC41F5EBC17E9FEF3C7FB6F7EAF5EA7ECEBB
        B7F87FC6FDEBAD53F6F5ED3EFD5EB614F5ED3FE1EFD5EBDA7AEED6F7EAF5B0B4
        EBC47FBEFC7BF75EEB928B9E7DE8F5BEB9141F83FEDFDEB575EEB8116FF5AFC7
        BD83D6BAEBDEFAF11D71B7BF63AAD3AF5BFC3DD48EBD4F975C6D6F7ECF5ECF5C
        6C39BFD47FB0FF008A7BDF5BF4F4EBAB7BDF5BEBAF7EEBDD7BDFBAF75EF7EEBD
        D7BDFBAF75D5FDEE9D5757A75D7BF755EBDEFDD7BAF7BF75EEBDEFDD7BAF7BF7
        5EEBDEFDD7BAF7BF75EEBB07DE8F561E9D640DFD7DD69D7A9E9D7761EFD5EBD5
        3D7FFFD524BEFA45D605F5EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD
        7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7E
        EBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75
        EF7EEBDD7BDFBAF75EF7EEBDD72F7AE9CEBDEFDD7BAE405EDEF5D580F3EB3A27
        23F3FF0011EFC4D07561F3EA74717D3DB65BF6F4E01D3CD2816D27F16E3DB0FE
        BD3A3A505228E3F1F4FF008D7FBD7B4F21E34E9F5F9F4AAA25B95BFF00BC7D3E
        BED1B9E3D295E95944B7161FD47FBDFF00B1F6924C74A93A5950AF00FE41E78F
        F0F68A43D2C8C70E96340BF436E7EBC7FC4FFB01ED0C87A5B1F974B1A2406DCD
        BF005BDA290F4B5070E963469C2D80D5F9B7F5FA71ED139E3E9D2C41C3A51D39
        489753B0E396B9FA9FF01FEB7B4CD53C3A52A3A72832511202A0201FC9FD5FD7
        FC3DB6D091C4F4A01E18E94948E92A865B8B8FA7D00FF8836F699D4A9CF4F8CF
        974ED1A836FEA3FAFD3DB1D5FAEE6A9A6A55D75132462FF52C01BF1C589E3DF9
        51DCE945A9EAE05324E3A0DB794B8CA956AA496092C9CD9D09E01278BF17F66F
        B709D184654D7A4F73E114D551D165DCE6078A69689C228B6B8C116245F9E3E8
        7D8D6CB506024CB744175428C5307A291BCEAE4329563705DB8FAFF68F1F5FF1
        F639B050A8C471A7400DEA462523AE09E839F6B7A27EBC0DBDFBAF1CF5CC1BFB
        AF54229D77EEA475EEBAF75EBDD6686232B80071EF5E44D71D5954B30503A525
        163DC952785B83FEC3DA4965078746905B95A57874E93D2408EBEA2AAA3F3FD7
        F37FF5FDA70CC47CFA50C880F1C74D355511477D2071F423F3FD3DBA88CDD269
        6454A9E991EADCB1209F6EE851C78F490CAC6B4E1D47695D8DC9F7EA0F21D50B
        13C4F58C927EA6FEFDD6BAF7BF75EEBDEFDD7BAF7BF75EEBAF7AA0EBDD7BDFB4
        8EBDD7BDEB4FCFAF75EF7ED3F3EBDD72517207BF7004F5E1C7A96B1F1FD3DD3A
        774D3AE5E2F7AAF5BD3F2EB92C049FF8D7E3F1EFC4F5E0BF2EB38A7B716FF6E3
        9F74D5F2EAFA71D746103FD7FF005ADEFD5EB5A7CBAE0C845F8BFF00BD7BD8A1
        EB4569D621193FEBFF00ADEEDF9F5EFF006BD6658BF16FF636BFBA923ADE9EBC
        52C7E9EF78EBDA7AE8A5BEB7F7AC7AF5AA758DA3FE9FEDBDD875AA75E083FD88
        F7ACF5AA75D1247F88FEB6F7EA75EEBA636B1FF7DFEBFF008FBF01D78E3EDEB0
        8604FBBD3AAD7AC8A01FA9B7F4F7535F4EB7D79ADFEBFF008FE7FD8FF5F7E1D7
        BAE247FBEFF8A5BDFB8F5EEBA23DEE83AA9EB8587F4F75351D6AA7AEAC07D7DF
        B3D6EA4F5C0DB8E4FF008FBB0AF5E35F33D71FA7BDF5A069D77EFDD789FDBD75
        EFDD6BAF7BF75EEBDEFDD7BAF7BF75EEBDEFDD7BAF7BF75BA75EF7EEB5D7BDFB
        AF75CC29F7AE3D5863AF693FD3DEBADD47593DEBAAF5FFD624BEFA45D605F5EF
        7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF
        75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BD
        FBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75E1EFDD6
        C71EB97BD757EBDEFDD6C64F59956D63FEF87BD7975BAF90EA5463FDE4FF00BE
        FF0079F753C7AB8E9C6353C7F88E3DB44F9F4E0E9D6962BB5FFE35F8F6CB9C74
        EAF4A2A54FD3C5FF00E47FF14F699CF4FA7AF4A6A3162BFD38B8FF007DFEB7B4
        AFE7D294E3D2BA885CADB8FA71F9B0FF008AFB46FE7D2A4E961402FF00EDF9FF
        005BDA393CBA591F1E965401400CC55500058B580E393FEBFD7DA1938D3CFA5D
        18EA4C5BAA820A96A60E8DA4E92491F5E071EFC6CA5640FA71D284990369AE7A
        5E5265D5E984AB617274B03FF1038F65CF010E41E8C108A03D4D4C834E005258
        DED763C0FF001FF61EE8632B923A50AC09F9F4A6A2A8C752C6B51533AE951770
        5BE847FC6FDA57595CE8453ABA7C305153C3A7CA6DE3842146B58E31C07D400F
        F616F6C3585D66AB53D3C27849C3750EBFB1F1342CC04D16955362597EA4704D
        FF00C7DBB0ED1712D2886BD51AEE14E273D007BB3B352A66987DE2088B3150AF
        F45E7E9CFB15586CA6355D51F7F45773B8AB120B8D3D007B97B26A2395D69AAC
        98EC7EAE4826C7FDBFB14D96CEAC06A8F3FE0E8397DBC2C26BE276F41949D8D5
        CCB344EE58487F27F20FFAFF004F67236984303518E880EFF210C02120F41F64
        F25264242CDF9249E491726FECC12358D742F0E89A79DEE5F5BF0E9A7DFBA6FA
        F7BF75EEBB06C7DF8F5A22BD641CFD39F75A1268067AAF53E9E85E620D8DBFC0
        1F7562882A4E7A72285E5E1C3A54E37104B0210FF8F1CFFB0F68679EB8E8DEDE
        D347974A56A330C646920806DC5BE9ED16B048A74BCC741C31D26EB09F55FE86
        E08FF89BFB50A38748E4C547491AA72CC7F001B7B5A168B8E3D13CCC7580463A
        89EEB4EB55AF5EF75D3E9D7BAF7BD50F5EEBDEF5D6FAF7BF75EEBDEFDD7BAF7B
        F75EEBDEFDD7BACAB1DFEBFF0022F7E38EBCA0B75C8C07F17FF6DEF5A8757D07
        D7AE690904707FDB7BD1229D6D51864F53E384B7E0FF00ADEDA269D3E149EA7A
        51BD85D78FF5BFDF7E7DB45C75709F2EB97DBB03F403F1F4FC7FBD7BD56BD6F4
        D29D4C5A425791FD0DC8F742F43D5F463AE0D464DECBFEC7DF83FCFAD14EB01A
        4FA8E47BBEBEAA53AE228EC2FF00EC3E9FEC7DEF5F5E11FAF5C841F81C71FD3D
        D757CFAF69EA3CB105E5BDDC1AF552A00E9BDE417B7E07B742FA74D13D63D7F5
        E3DDB4F5AE3D62B9BFD7DFB4F55AD3ECEA40E45FDD7CE9D5FCBAE0E9A87F8FBF
        03D68AF518A05FA9FA7BBD49C01D508A79F5C7C83DFB4F55AF5DF907F4F7ED27
        ADEAEB9037FA7BA914EB75AE3AE47FDF7FBEFCFBF75E3D71FF006DEFDD5787DB
        D626E3FD8FBF75B1D70FF79F7EEBC7AF7FB0F7BEB551E9D75FEC3DFBAD547A75
        EF7EEB5D7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75C82DCFBD57AB5
        29D640A07BF53AD57AE63DFA9D6C11D72E0FFBEE2FFF0014F7ACF5BA75D1B7D3
        FDF7FB0F7EEB7D7FFFD724BEFA45D605F5EF7EEBDD7BDFBAF75EF7EEBDD7BDFB
        AF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7
        BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EE
        BDD7BDFBAF75EF7EEBDD7ADEFDD6C027AEEDEFDD6C03D77EF5D5BAC883F36FF5
        8FBD75EEB2A8B903DF8E075B1C7A9B10E7FDB0FF007DFEDBDB47857A7074E90A
        0E2FF8FF006DEDA63E5D3A3A78838E3FDE3E9FF14F6CB703D3ABD3ED28FA1FF5
        BFE47ED3BF4FAF4A2A5FA8E3F007B4CFE7D285F2C74ADA2B003FA9079BFB48FD
        2B4F2E965402D6FF0011FEF3FD7DA193A591F58B319478213145725810A2E458
        DADCDBEA3DBB6D0076D4DC3A79E42AB41C7A63C0522B5519F20C4EA6D7A6E401
        CDEC471FD3DADB97223090F5E817BAAC71D0D3455744D4E8B1C8AB1ADC69661F
        41F5B7F5F61C92394392467A394752AA01C75C6BF3D4B4105A2915B57E5585EC
        38371F83FEB7B7A1B49266058529D6DA7450687A0F6AF7CC864969FC2444AADE
        B6663AEE081FE1C7B398F6BA0570DDDD237BE394A53A4E8DE12D3534FE798B33
        6AF12DECB17D6DED61DBC3BA9514038FCFA4E2F4AA36AE3E5D06B97DE552FA94
        CE581FADD8FE7FA7F87B38B7DBC7E14E8A2E371D232E71D06B5FB865767FDD66
        373F9BFF00B6FE9ECE23B58D00D5C7A0FCBBA48FA8267A4ECF3D456306B137FA
        7D7E9ED4A80168AB8E8ADE4691CB4AD56EA38A49CFF60FFB1BFF00C4FBDD3AB6
        7C90F5DFD9D47FA827FD6F7ECFAF5BA37F01EBBFB1AAB5FC4D6FEB63FF0014F7
        5342788EB7A5C7FA1B53ECEB81A4A81F58D87FB0F7AA75ACFF0009EB9C743512
        7D236FF6C7DE8D07123AF6990D02C64F4F94388919C6B52071C58F3FEDFDB324
        EA8A741AB7AF4AEDAC64760F28FCBA5AD3E31238502AD9BFD6FA7F5F658F3166
        249AF47896EAA0691D2B30D8D676BE836038E3F3ED0DCCA17CFA5F0C458D42F4
        E791C548626628781F5B5BFA7D6DED3C532EA19EAF34274F0E83BAEC748357A0
        83CDB8F666920C67A2B9613C29D24A7C6BB31F4906E7F1ED6ACC00E3D15CB6A5
        CF4D15142F0B7E7FAFFADEDC5657E1D2292078BECEA01E0D8FBD914E9A0DEBD7
        AFEF5D5AA3AF7BD507A75BEBDEF5A7AF75EF7AD3D7BAF7BF693D7BAF7BD508EB
        DD4B8587BDB0C70EAF19F23C7A74811588BF3CFB4ED5E96281D38A522B9E01F6
        D17A74E88EBD3BD2E30922CBC0FEA3FDF7D3DA77971C7A7922E1D3C8C7DC70A7
        81F81FF22F69FC5CF4EF87E54EA34D4000BDAD6E7FC7EBFE07FC3DDD64AF5531
        F59A9E91E6160A6CBF5247161FE3EEAEC17CFAB2A12303A94D8CB7E0FD2DF4FF
        00881EDB137CFADF847A8CF8FD079E47F51F5BFF0088F7712547CFAAF854F2EA
        39A13C903FDB8FF883F8F771275AF0FCFAC0F484004AF37E2C39FF001BFBB6BC
        F1EABA31C3A4D64C949747D38FA7E3EBED6422AB5E924BDA7A606B924FB54171
        D23393C7AF01CFD7DF883D6D71D732BC5C1B81EEB9AD29D58F0EB8AB588FF0F7
        E23AF061C3AE6F271FD07BD01D6D9A83A84C6E4FBBD29D31527AE3EFDD7BAEBD
        E88F43D7BAE68D63EF44547CFAD834EB30607E9EEA411D5EBD7076038FCFBF0E
        1D54F1EB15FDEA9D6F575EBFBDF5527AEBDFBAD75EF7EEBDD7BDFBAF75EF7EEB
        DD7BDFBAF75DD8FBF57ADD3AF5BDEABD6F4FCFAF5BDFBADD3875907D57FC7FDF
        1F7BEBDC6BD67B0B0FA0BFFB7FCFE3FA5FDD6BC7ADF5E2A47BF57AD5475D5ADF
        5F7EEB75EBA3FE1EFD9EB59EBFFFD024BEFA45D605F5EF7EEBDD7BDFBAF75EF7
        EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF7
        5EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDF
        BAF75EF7EEBDD7BDFBAF75EF7EEBDD7AFEFDD6C123AE5EF5D581AF5CD4FE3FD8
        FBD1EBC7D7ACA07D3FA9F7A14E3D6FACCABCFBD13D5875362163C7FB1BFD7DB6
        DC3A717D7A7287FE23DB67CBAB8F33E7D3B53924816BFD0DFF003CF1FEB7B65B
        CFA7474FB4DF8FE9FD2DF4E471ED3BF9F4FAF4A1A322EA7FC2C7FDEBFDB5FDA6
        7AD4F4A108C74ABA336B137B7207E7EBFEF3ED23F4AD0E074B1A17B05FF58FFB
        03ED138E96C7E5D36E48AB37245C35F9B7F5F6A20A834E9C7A1CF50BC750E43C
        4DE926CC05FF00DB8FCFB520A2E1C67ADA86391C3ACF5B55534B0DA20E1F4F1C
        B5EFF4FA036B1F7B8911DAA694E9C72C8BF3E9AF1ED5B3AB3D5339BBDC0278B5
        8FF5FCDFDAA9BC35A08C0EAB11722B21E9A33B918E1F425830045BFC6DC7FBCF
        B536B131153D33732A804748491E7ABBA824DFFB3F81FEB9F664AAA993D16B17
        941A1E92993C7D5F242303F43C7E3D995B4F1D285BA27BEB59D8768C74C50E2A
        676BBC6F7BFD08FAFF00B7F6F9789465857A2F4B4B873A4AE95E95543869348F
        DA27FA023FDE7FC3DA496E85680E3A35B6DBC85F83A9351859C805632B607F4F
        3FEDFF001EDB8EED456A7A5325939A15C1E9AA5A0AA8392A783C71FEF5FD4FB5
        2B3C4F8AF4924B79E3F2AF5328BCD2B88E58980047AADF51F93FE1ED898228AA
        367A7EDFC46ED743D2B2970F4F35AEBA8FF881ED0BCCE315C746496F11C6915E
        9DD36EC645C43C1FF0FF007DC1F69DAE698D7D28FA402945E9D2936CB3E9D110
        1FEBAF3CF23DB125DAA9209E9E8ECCB705E9474BB3EA1DD74C4CC38E34DFFA73
        ED1C9B820A82DD294B26F4E9674DB565A187534454717BAD989FF0F658F7AB23
        53567A562D8C6BC3A8957451B44EA574DBD27F26E7FADFDDD5CAB0CD7A6CA865
        3D213258A85750601AC09BD87B318A63504748248450FAF41B57AC14ECE011E9
        63FD073ECDA32CCA319A7455268527D3A42E4664676E6DCDEDFE1ECC6046A67A
        26BA9541209CF49A7B163EDF603A2C1E7D71F74D27ADF5D7BD50F5EEBBBFBD75
        BA9EBD7F7EA75ED47AF5FDFA9D6F57CBAF5FDFA9D7B57CBAE4AD622DFD7DEC71
        EB45BCFA7CA23A8A1FF11FF13FEC3DB128F3E97DB9D54E9574B1DD9481FEB8FF
        0063ED149F3E8C116B4C74B4A1A70F65E05C7F4FAFB2E94D33D2D44F41D2A971
        4028B2FD40B9B73F4F65E66C9CF4ABC1A0E18E9BDF022690B1BD87E39B7FADFE
        16F6F8B9D0BD366DF35EA7C18811C45540B03F5B71FEF5C9BFB61E7D46A7AB88
        283875C65A0205AC0FE6E38FF88F7B592A6BD68C54F2E9AA7A2258802C17F3FD
        7FAFB7D1F15E9B31E4F5125A41602DC91FEF8FE3DBAAE7F2EAA505294CF4C754
        1E26B58055FA9B7B5280374C32D3ECE90D94B4939602DFEC3FC7D98C234A807A
        2E9F2C7D3A60642A483ED60A103A4454D4D7AE16F7EA75AA75DF22E3F1F9F7AD
        3D7B23AC45AC7FD8FBDD3E5D35AA84D387589989E2FEEA71C3AD0A9C9EB87BAF
        56EBDEFDD7BAF7BF75EEBDEFD4EBDD781B7BD7DBD7875E26E6FEEA7D075EEBAF
        7AEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75D8F7E3D597CFACA
        BF4F7A1E7D68F1EBBD23FA7BF53AF54F5D1B01F4F7E23AF0A9EBB1C5BFC3DFAB
        D7BCFAE77F7EEAD514AF5D96E3DD7875AC0CF58C9F7E15EB5D70D47DDBAB5075
        FFD1264AA84FE95FF6C3FE29EF3E6496E40349DEBFE98FF9FAC3B8E1B56A0FA6
        8FFDE47F9BA908917FC7343FEBAA9FF88F65B35CDE0E1752FF00BD37F9FA3582
        D2C5B8D9C47FDA2FF9BA7086081BEB0427E9F5890FFBDAFB299EFF00701C2FA6
        1FEDDBFCFD1D41B76D869AB6F83FE71A7F9BA7AA7A2A36B5E9698DFF00AC119F
        FA27D91DC6E9BAAD74EE7703FE6E3FF9FA3DB5DA7676A6ADAAD88F9C49FF0040
        F4A2A2C5E3588D58FA1716E7552407FDEE33EC86E77ADE8569BC5D0FF9BB27FD
        05D1FDBEC7B09A06D96D09FF009A31FF00D03D2B68B07846B6BC3E2DB9FED63E
        91BFDEE13EC8E7E61DFD41A6F9783FE6F49FF41747D6FCB7CBAC2BFB82C8FF00
        CD88BFE81E95D45B636E391AB01856FA70D8AA13F91FD603EC337DCD1CCC8095