完善的计算器功能是delphi7系统的一部分

object Form1: TForm1 Left = 216 Top = 131 AutoSize = True BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsNone Caption = 'Calculator' ClientHeight = 304 ClientWidth = 226 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object BgImg: TImage Tag = 1100 Left = 0 Top = 0 Width = 226 Height = 304 AutoSize = True Picture.Data = { 0A544A504547496D616765AE1E0000FFD8FFE000104A46494600010101006000 600000FFDB004300020101010101020101010202020202040302020202050404 0304060506060605060606070908060709070606080B08090A0A0A0A0A06080B 0C0B0A0C090A0A0AFFDB004301020202020202050303050A0706070A0A0A0A0A 0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A 0A0A0A0A0A0A0A0A0A0A0A0A0AFFC2001108013000E203012200021101031101 FFC4001D000101010002030101000000000000000000060704080203050109FF C4001C0101010101000301010000000000000000000704050102030608FFDA00 0C03010002100310000001DEF07467F42422B524ECF2EB5242B5242B5242B524 2B5242B5242B5242B5242B5242B5242B5242B781F065F16DFE88BF9328A577B5 58DEC98857E578BA650AB3D32645326453264536CBD74F66FC3DCDFCF77A7FA1 2181A3E40000000256AA579DBB2B128A676AF10DBF10A07E17AE23F9F6E80000 01C8F670DF4F9F31C379F1CC70C731C31CC70C731C31CC70C765F9FC0E7DBE3B 958FC6FEB7B57037D255599C32E5CCE8432E4432E4432E4432E4432E4432E443 2E4432E4432E4432E4432E4713E0554AEDCD95898517B57255B255B9706DCC00 00000000000000256AA579DBB2B128A676AE4AB64AB72E0DB980000000000000 0004AD54AF3B76562514CED5C956C956E5C1B730000000000000000095AA95E7 6ECAC4A299DAB92AD92ADCB836E6000000000000000012B552BCEDD95894533B 57255B255B9706DCC0000000000000000256AA579DBB2B128A676AE4AB64AB72 E0DB9800000000000000004AD54AF3B76562514CED5C956C956E5C1B73000000 0000000000095AA95E76ECAC4A299DAB92AD92ADCB836E600000000000000001 2B552BCEDD95894533B57255B255B9706DCC0000000000000000256AA579DBB2 B128A676AE4AB64AB72E0DB9800000000000000004AD54AF3B76562514CED5C9 56C956E5C1B730000000000000000095AA95E76ECAC4A299DAB92AD92ADCB836 E6000000000000000012B552BCEDD95894533B57255B255B9706DCC000000000 0000000256AA579DBB2B128A676AE5AAF66A27E0BAD8DBBE97AFBF5F5B2737ED F2C43CFB35C9E76FEAE7ABB0D11BF1665E5B3F10C83F77EE3FA7BE0FE5B77DB7 8EBAB63AD3ADCDBB85F6F963C3BFC50004AD54AF3B76562514CED478FDEEB4FE BFF2FBA71708F3E2F7377F9D8CBDFD776F978EFE7AF9D6FD991F87D7E7BC7032 3E0EBC7D81F0C03DBCDE8EF9C7C1FF003DBC6E7EEC27F3CF8DCA7F2CF2F2D379 B9AFEFEC3F1FA4B367B7AE92CD869329F07EFF003B7E58FEB32534AFFFC4002A 1000000503040201040301000000000000000204050601033407121740151630 1011203613142331FFDA0008010100010502944A1648165F33796F6F4037A01B D00DE806F4037A01BD00DE806F4037A01BD00DE806F4037A01BD00DE806F4037 A01BD00DE806F4037A01BD00DE806F40134FA410958D5AA907736C35FBC56FED 492B5A27DC607C09FAF58DB1FF0072940F72940F72940F72940F72940F72940F 72940F72940F72940D3A99DA915FAD2A5AFCD25C707C0D4DFD5FE1B37AF27BC7 746F9113E692E383E06A6FEAFF0015958AD393C8B80F22E03C8B80F22E03C8B8 0F22E03C8B80F22E03C8B80F22E03C8B80F22E03C8B80D32FF005854971C1F03 537F57EC6977E8525C707C074666A7E49C5D021C5D021C5D021C5D021C5D021C 5D021C5D021C5D021C5D021C5D021C5D021C5D021C5D021C5D021C5D021C5D02 1C5D021C5D021C5D021C5D021C5D021C5D021C5D021C5D020D4D4D0C0D125C70 7C0ED4971C1F03B525C707C0ED4971C1F03B525C707C0ED4971C1F03B525C707 C0ED4971C1F03B525C707C0ED4971C1F03B525C707C0ED4971C1F03B525C707C 0ED4971C1F03B525C707C0ED4971C1F03B525C707C0ED4971C1F03B525C707C0 ED4971C1F03B525C707C0ED4971C1F03B525C707C0ED4971C1F03B525C707C0E D4971C1F03B525C707C0ED4971C1F00B66F1C188728A10F51FF3E9429AA3F86F 541ACDE27D0A43981ACDD20A52B515298BF4A14C615A5683ED5AFC525C71F6FB A382C6DA1C18D5C2533B481BA03688AD8B4E153EA16ED2EBEB88DBA605FEB354 31B152C9245DB0F6A5303708EB6699C652BE287F3C29E8574D6EB32791C06CD2 5D774AD7954C774F131AF34C08F215CC7A636D4DF6ED325AE61D34E55A26DDE5 3FE725C706BD6E88D04E9998DBD4EBFDC7352C3AB0DF1F7660D6ABED51036B63 C5F8F5FD6AF22B53EAE18AE2D7AB2ADA19A4FA82D326510C9F2C842FB73AD3D6 8B12BD76B6BDBD26B7DCB53D8E6B13444D6DBD72296FC7B569131B4A1D6EBC69 A30EB1586B639A6ADBA4FD021298A9FF0029318B44FB4C357603248A3B299092 F8A39A5A02BBA7283BBA73D28EE9E94ABBA7A82BBA728F336051DD3D0D592D2A 4F2A9B755D12D6B4794F41E55302BA2528ABBA7350AEC98B4ABAA6A8B6EE9EDD 6929AD29ED661ED661ED661ED661ED661ED6611984CD353DC5AB4AE0ED8D9FFF C400391100000303070A05030403000000000000000102030405101112145153 D1061316213031323452A1157192B1F0204161354272C18191E1FFDA00080103 01013F018A451BBE37A6D35998ACAAC1595582B2AB0565560ACAAC1595582B2A B0565560ACAAC1595582B2AB0565560873CB6AF20D0744E7FB028CB5E910C4A5 71A774A8A723510F0C86DCA7D2580F0C86DCA7D2580F0C86DCA7D2580F0C86DC A7D25808864FC2DFDD8D9E6C927F632298C83762D1DDB299ACA632FAE1BCEA24 857EBAEDFC93F51B266673990CCB2E9219965D24332CBA4866597490CCB2E921 9965D24228445956D08ADFE8A45B66AEEDD0D599CCA2DC34A23D7E7DB01A511E BF3ED80D288F5F9F6C069447AFCFB6034A23D7E7DB01A511EBF3ED80D288F5F9 F6C069447AFCFB6034A23D7E7DB01A511EBF3ED80D288F5F9F6C069447AFCFB6 01D5E1B3DC4C9AB539D467ACE479E22DAC379D448F3C45B586F3A891E788B6B0 DE75123CF116D61BCEA2479E22DAC379D448F3C45B586F3A891E788B6B0DE751 23CF116D61BCEA2479E22DAC379D448F3C45B586F3A891E788B6B0DE75123CF1 16D61BCEA2479E22DAC379D448E90C691479264839B502C9B881B5A336A9E69F EDFEF70464FC4D644648DFB833C92882A6A5AA7C660F993EFCEB48E69C93BCFE 79067016ED1C6B3396BDC568564DC490CE91A75EA29BCF77B065937135B5241A 660C326E24DCCA8A751EE0793F132453A073791FD10DE751231874561B119D48 DDABCFF241A3DBEAD64BA1AC813DBFE6C9343F1FE377B037C7E3FD9F279FDF58 68DDF1B32A0B47CF861C6BEEAEE6C5489CB5CDF89C29F5FCCC9448D7F313097A 7B4228A51BBFE1FB9104BD3F252454377CFEC2DE9F14C4D9D00B823FAD66730F 017FB0780BFD821B027D27B4999028335EA1FFC4003C1100010105020C030701 090000000000000102000304051106311012141621303452547191D11341B115 2032515392F0612236427281A1B2C1F1FFDA0008010201013F019349DD413A28 41A01F2F52D918DE2D918DE2D918DE2D918DE2D918DE2D918DE2D918DE2D918D E2D918DE2D918DE2D918DE2D918DE2D328473903C0F063023CD8C8DCD7E22D34 5ADDC8A2948342127D1BDAB34FAEBFB8F76F6ACD3EBAFEE3DDBDAB34FAEBFB8F 76F6ACD3EBAFEE3DDA5D692712F890F43E511E609241EAD0B12EA2E1D2F9D9A8 50AFBF35D8178271FBBF17FCAAF4F783D7A9140A2DE3BEDE3D5BC77DBC7AB78E FB78F56F1DF6F1EADE3BEDE3D5BC77DBC7AB4949558D764FC8FF0091C0EE1DCC 543BC72F4552AD05B33ACDF0E3AABBB66759BE1C755776CCEB37C38EAAEED99D 66F871D55DDB33ACDF0E3AABBB66759BE1C755776CCEB37C38EAAEED99D66F87 1D55DDB33ACDF0E3AABBB66759BE1C755776CCEB37C38EAAEED99D66F871D55D DA2A121E06505C384D120681820EE573D6CD7605E083B95CF5B35D817820EE57 3D6CD7605E083B95CF5B35D817820EE573D6CD7605E083B95CF5B35D817820EE 573D6CD7605E083B95CF5B35D817820EE573D6CD7605E083B95CF5B35D817820 EE573D6CD7605E083B95CF5B35D817820EE573D6CD7605E08B9B3A93C297AB15 D2C6D4CB43AC6AE9A569E74E57B2ED2CA5D95053CF86F6796D2589C6C5D34ED5 F4681B4B2F8CC518D42AD007E7367968A1DDCC0C2E29D179A1A0ADD5F95CC8B5 52A78F7152AD1426BE5A295F567D6AA52EDC978175FCAFFA67F6AA550E938CAD 22FF00D2AC9B492953CC4F105798F726BB02F03D99C96692EA63FC5A797E859D 42CA9DBB28C6FD93E4C61E53E295D46935FEB5AFAB085950FE2FCA62FA68672E E5B0EFBC542F4FFCEC1A397298A8AF1C2B4E8AE922B4BAEE6C9839400535D1DE 9D832A1E58B595295526FE847A12CA87952944955F7FF6ECCEDCCB5DC407A956 906BD6F645A0972534C66CE2977CDB38A5DF369ADA280304A00B19E39AFC25BF FFC40044100000040205070A0305060700000000000001020304110512213271 101331407295D3061422344151619193A130333515426273B11620232481C152 537592A2B3D1FFDA0008010100063F02888484A40D88260CD3D054B39E27DE14 44EA0EDD22FA05F40BE817D02FA05F40BE817D02FA05F40BE817D02FA05F40BE 817D02FA05F40BE817D02FA05F40BE817D02FA0147D0348289B4AA6B855AA6D3 85DC65FDF4886A48E9D659E70C21CCCB8AE922653AA7E21444E1DA8B75B39770 BC60F601C540C429A709E4F49063EB6FF98FADBFE63EB6FF0098FADBFE63EB6F F98FADBFE63EB6FF0098FADBFE63EB6FF983A02998826A39C5FF0020B9741E3F F2CCFEEABB8FB672B0555148CB491FC73C321EC057E7A3E126221DD521C42894 85A0E4693EF21FB4943BD9C868B59AADD2DAF4A9B577194FCA47A0FE39E190F6 02BF3D1F0D4DC3C53884A8C8D4942CCA72D1FA9F98EBCF7A863AF3DEA18EBCF7 A863AF3DEA18EBCF7A863AF3DEA18EBCF7A863AF3DEA18EBCF7A863AF3DEA18E BCF7A863AF3DEA18EBCF7A8639D3BD274E947D26E2AF1A49B66453FEA7E660F0 C87B015F9E8D653FEAF11FF5300F0C87B00E8FA613106D1991FF002CF12153C4 D2A17297DE0D7045CA5F7835C117297DE0D7045CA5F7835C117297DE0D7045CA 5F7835C117297DE0D7045CA5F7835C117297DE0D7045CA5F7835C117297DE0D7 045CA5F7835C117297DE0D7045CA5F7835C117297DE0D7045CA5F7835C117297 DE0D7045CA5F7835C117297DE0D7045CA5F7835C117297DE0D7045CA5F7835C1 17297DE0D7045CA5F7835C109A1A866E209A2885BCA544BE95A8D4A4A0BB129F F003C321EC6B678643D8D6CF0C87B1AD9E190F635B3C321EC6B678643D8D6CF0 C87B1AD9E190F635B3C321EC6B678643D8D6CF0C87B1AD9E190F635B3C321EC6 B678643D8D6CF0C87B1AD9E190F635B3C321EC6B678643D8D6CF0C87B1AD9E19 0F635B3C321EC6B678643D8D6CF0C87B1AD9E190F635B3C321EC6B678643D8D6 CF0C87B1AD9E190F60741A51E0424A4996242C49F965B1262C695FED1D269458 A72745267810E9B4A2C485842D49E4E8A4C5A4347C23C324BF087E39E270F316 1B70EDD770FF00A0760682757168422B2ABB46DA9BF0556907A8BA460DF69688 73724D9119E9D380FB421E16B919D87588BF50A53504A55574DB51772BB844CE 1A4E4394B37DAA54A72FD3CC413286DD2E730D9E59AD2562645A3CCBCC469C2B 1184A848C4C3C9684D599920FB0FB943ED289A29696FEF2EB11D5C7B81366657 6BA8FB8824B92DCA0CFBBCE334A8571B91AFF1241D211F0355092E91D623904F 2768E253C66C1392F3FF00C1CDBECE512B375CBA65696221998B49A11164ACD3 85239C93311A5030F9C442C429AAC6A22D0720FC03ED6696C266E4ED97707549 A395369C342E6A2B145D81748A28F3A8DA14A5AD4B24926AE9D2268D1FBE7864 BFF7444C35230B1AD3EE7C8A428D89343ADF86997EBA44741454144260E328F2 8553E922CF595ADFF918722A05BA49D64E8B386AD10ED751AA69B6467D12B042 727A350F36E413E6E36FB50CDB86A2999FDFD0733D222E02215126FC552A989C ED54DC2A96592B7A1DC29BE7A71CDC3D2B0CDB695208AB20D2932D13F1F61C9E 8BCD45D4A1E0150EEF44A6BFE1D5B3A422E0D9877D6F3D4F9520DD722AB22520 C9276FE11174937F69F3A8D3419B2A72AB483229765E0DD2B99379ACD1B6F369 3B6A9F779106A1793DC93885B9CF52EBF1514E49CCDD6B5B2ABE160A4E87A2A1 621B6A35B4934598426A4BB26569E2730BE56F3288530ED1FCD5D4A88AB95B39 95A13CC9BA4E29A3845B2EB914F4E533232AA9ECD02844310D1B99A2B3C4AAD5 6B395906923D229425C03FCEE2E3D4FB0F66D2B920CE7564AB0BB6D91E9F0113 CA3884C5E6226039BA92445349D96CA7E1EE212848AE7D568BA44E2611E6C8AB 3E558CE4E5BE21880710F36A445A9C5224552466A9627682ADDDFBE76F60BA62 2296A268B7A2A8B7D66E2570E8AD989DA695116822EFD1A049681F2BD858DFB0 91B5EC259AF61F2BD858D7B0F97EC2B137EC2A1A4E42B66C4F35EC259BF61F2F D858D7B0966FD8489AF61F284D2D7B0914C768ED1DA3B4768ED0885A128B779B 9ABF8B18E24C9A6CBC55FD8AD10D469D04CBDCDD84379E713D25C8A558FC47FF C400291001000201030303040203000000000000010011213141F15171F06181 C11030409120B190A1E1FFDA0008010100013F21E870A836286873469558B877 A1D5359C7CE3E71F38F9C7CE3E71F38F9C7CE3E71F38F9C7CE3E71F38F9C7CE3 E71F38F9C7CE3E71F38F9C7CBF9019659D097D14366293D5D1BE062974FA90EF C1A0EBF97792A2AC1FB3E9E55E02A34DD938CCE3338CCE3338CCE3338CCE3338 CC0862140C03332266B1D8AAB7E9450323F853FE63ABF691428D15B10C88EF2D 1065D5E84DDE8DE8582FE0CFF98EAFDB048A2476B21AD60EEEB3C2BE67857CCF 0AF99E15F33C2BE67857CCF0AF99E15F33C2BE67857CCF0AF99E15F33C2BE661 EF1B90D7550B86DEB3FC27FCC757F354CF81823442E3095AE2BDFF0025EBD7AF 5EBD7AF5EBD7AF5EBD7AF5EBD7AF5EBD7AF517C7244826001B3ABFE44E7E7E7E 7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7C8BEE2B11B674A2 036EED08E095F4D5E76218CBECA0D7DF83E88D39DC992EE2917A47B134E9DCFA 6BC3B110A43B90D327DA226A7DB9A58DCC074D2D412F02D7FE3D20BFD9A2EE46 8E8FBC0C8755801A9A72D4588D349445E858BF6881AB882AD55B8A9665405070 C2DD68ABF44BE699885973C9657E88E1965AB256CC8A15A25D690ADE20760E94 15F74B8F16B2EB42FF00687BC6EB9C02AEB06DA39D4DECA95D4675E7A8364C1D BF81CBFA1D5153B85080A0A069AB3F7373FBA8187EA24EADA36BA942F11FB014 AD6D0677CD3A620668385B8C9CBDA29A9228B17B1554E35C4B5ED3ECCE8F5D68 95AAE4CCC5E2298DCD4123B155D1DDD57966A50195E5DE9429781DF48A842630 7556BC20D0330765703D5974E814B636533AE9DD1CEEB8C64513284A35165E52 23B2FB87E72BD34099D663B1CB0BBA274183FA97E769E241BB6E29ED58D60AE9 45CA16A3514BD2D6D73002858CC6526D5D8B3450646955B83A788B10DF761505 60CBAB6A985D9AE90390561162002E6DD2B6B9A4A40F8DB7B7F40D105E6B8175 62A3B35B809D63474C9EA639D0D4873B125BE03741BC1BC2179FE6B40CDD93F4 44E952DBB055B2EAB8516E5BB93D487D4B0BF40C4A420153F4085F2C09B1660E 8A81519F6968C81A4B27AE14B8AF1FA480129FF481EA24538FE624926A9825BB 32E829EB2D88A4F5746F818B55BEACFFDA000C030100020003000000108430C3 0C30C30C30C30C0F920C30C31E10000000005C00C00000008410410410560010 C30C30C30C30C30C35000C00000000000000000170030000000000000000005C 00C00000000000000000170030000000000000000005C00C0000000000000000 0170030000000000000000005C00C00000000000000000170030000000000000 000005C00C00000000000000000170030000000000000000005C00C000000000 00000000170030000000000000000005C00C000000000000000001701ACEA24C 3400C7AC10005C0582F159CFEF578BA82084FBFFC40026110100010206020203 01010000000000000111002110314151A1F1306120917181F0B1C1FFDA000801 0301013F10DF10BB313A1B057A95EA57A95EA57A95EA57A95EA57A95EA57A95E A50E1C66B1EBD50004FDB43E80A2488A591B27C4D1A34694718C12346409371C CA54CB444844F5F3E661FD4DCF9260ABAC15D215D215D215D215D215D2144A40 1C0B2C8AB64C9BD74F474F474F474F474F474F474F474F474F474F474F474F44 37E9489723483230E2797998713CBCCC389E5E661C4F2F330E2797998713CBCC C389E5E661C4F2F330E2797998713CBCCC389E5E661C4F2F330E27979980F044 AFB04BC14806706649A027952EB4336373D5AFFAA0BF13FC6EDE72CF2AB99148 0A04A5E062EB38CA828CE5C06113028B12480B7DE9CA89582333C8DD99646948 DD2C5C4BA86A11742FB9BD075C51430A4CC3968EBA34DF245F419DA34D691187 1E661BEA720832B86D712E6F5321A6B74BCDBF6B406A80B26D6591F4FC5052B9 99CF5FE4F74F269169B8309FF5F744A00A90391312313065B52C08239ECA906C 301A4B459A10808021FF0041F92848C9481606F78DEEBE77A92984089B40403B 801F55AA1B8939741D2ED2014FD35FFFC4002611010001020504020301000000 000000000111002110303161A1415171F0D1F1208191B1FFDA0008010201013F 10B23D000150BA6AAB9A888888888888FB5B1009E7CEFA9D294908F053BC4222 8896225C77FC7B76EDD85524824EA227F4908D13C102325CEFB69F9F0321C322 074162BED9F35F6CF9AFB67CD7DB3E6BED9F35F6CF9A7B2575F06E33017244B9 223FC7350A142850A142850A14286451D7162556EABAAF5C3DCDB378187B9B66 F030F736CDE061EE6D9BC0C3DCDB378187B9B66F030F736CDE061EE6D9BC0C3D CDB378187B9B66F030F736CDE061EE6D9BC0C3DCDB3781838F092DDD80E5A1EF 48F40517547576A3C02A2E2CEF7B7EEAF2435C3FE3DC49133A17AB1E7C841541 82526C349D69B9A0812E2E024A50A85A5828005B11186B118221AA6B40C884C0 8D81510B364DBB3DA994E1102488429AF53A6A850DD60371D099EBD3BD1731E0 610D2484051566C3DC846CF68A886061120D825EF602A1892E62FD44EBDD1A4D 3700888FD7B5B50D853BA594950ED3FC2892060882E5D22625AF7BCD374CC4DD 0065EAA4CEB69ABF54495567FC0BC343618A26EC2582E8596D24A1FB3251714A 8ECAAAF9A1AB462DDEB69D6C14240C792BFFC400251001000102060202030100 000000000000011100A110213140B1C1416151F030719120FFDA000801010001 3F103F204669AA45625612B98D147F3D96BBA9CE739CE739CE739CE739CE739C E73987EC47285B6404472182590E161C77C43E0E52485A94BBC27D67BB0D513D 2810001903AB5F55A46D5C013E44F0FA7C57D2BAAFA5755F4AEABE95D57D2BAA FA5755F4AEABE95D57D2BAA1077CD42E19A240C03ABDE8A000C223A23E3F3DD3 8C2D7D7E3606BF61A252060811104A8F89D422575CBCAC997F9CEBA7185AFAFC 8C0BBFD268A4040139841AA7F28E1C3870E1C3870E1C3870E6AB73A644C66741 8480325D38C2D7D6ED845BA7185AFAACF2615724AC82185646110EE28D1A3468 D1A3468D1A3468D1A3468D1A3468D1A34503EE34187660A2E74405D38C2D7D6E EE9C616BEB7774E30B5F5BBBA7185AFADDDD38C2D7D6EEE9C616BEB7774E30B5 F5BBBA7185AFADDDD38C2D7D6EEE9C616BEB7774E30B5F5BBBA7185AFADDDD38 C2D7D6EEE9C616BEB7774E30B5F5BBBA7185AFADDDD38C2D7D6EEE9C616BEB77 74E30B5F5BBBA7185AFADDDD38C2D7D6EEE9C616BEB7774E30B5F5BBBA7185AF ADDDD38C2D7D6EEE9C616BEB7774E30B5F5BBBA7185AFAA853BE78C2BDADE0AF 51ABFCA34F4B5F09185C1569D923A08EAA10DF9E40A44612A57F6822B51302F9 E70A9073E246B24FDEE7385D1778A9733E20AB464A90843F67E1BA718296985F D294FD75AC2246D46402B4174226CA90C6805010F91A2395BD6611CE8738233C E92F0DD004C807EA4D205CA363C509C895809D69991F8EDE001E410904CC93A1 C380189CE4A265135A84BA2A3857097A4E6C503831FF006866B2A024250D6836 CB0B5007951BDD05249375CD12CD08023024AD1C83C610B23299A11531A013C2 A64C01A886740444B5C88664E0C90CAA674A0495A27D66635A6FA69E054CA04A 07CD192603515364522932267C2290866883442F2269998710E467104B32A069 5A193907C7FBBA7183DD7403AA231487B4FF00649146CC44CA0449F99A62C128 48989D49884001781624E88425C900C895BB6A9245784A02D4D06CCA64913041 289C8B2A820595C698C2C283342624890498A365E48753001852292FCC74C128 43700048986864C7F5414CD432F09CA8BC4422F69922818194A50234940619A4 4C48330C494EA99241BAC99DA00A3D0B20E69C508A58D1CA666C6C99CFAE5092 6C9D5198FF00EA8CB64184D1425CA824A80DB7D2530CE9417C1780FB049030C0 4B2C9115420725E04B084206A08D767CD324305494E4CA256C2C4CFF00B21232 D5F5408404C91D28E0E9AA55143297319599E648AD40D5421483E2829886943F 9430383C094410CE81580CC94C81844B2524489CE2B98D3EE8C560EB4553FBA9 900349EB4F8A2A8A3F14D0F6B2C612250C02064457A3F8AF47F15E8FE2BD1FC5 7A3F8AF47F1428865CE07C8864486C90C0F4B2EBBEA8F070124057FFD9} OnMouseDown = BgImgMouseDown end object Label1: TLabel Left = 15 Top = 33 Width = 196 Height = 18 Alignment = taRightJustify AutoSize = False Caption = '0' Color = clBlack Font.Charset = ANSI_CHARSET Font.Color = clLime Font.Height = -16 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False Transparent = True end object Label2: TLabel Left = 35 Top = 20 Width = 35 Height = 13 Hint = 'Inverse function' Caption = 'Inverse' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True Transparent = True Visible = False end object Img0: TImage Left = 15 Top = 245 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object Img1: TImage Tag = 1 Left = 15 Top = 220 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object img4: TImage Tag = 4 Left = 15 Top = 195 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object img5: TImage Tag = 5 Left = 55 Top = 195 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object IMg2: TImage Tag = 2 Left = 55 Top = 220 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object img3: TImage Tag = 3 Left = 95 Top = 220 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object img6: TImage Tag = 6 Left = 95 Top = 195 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object img7: TImage Tag = 7 Left = 15 Top = 170 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object img8: TImage Tag = 8 Left = 55 Top = 170 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object img9: TImage Tag = 9 Left = 95 Top = 170 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object ImgPlus: TImage Tag = 12 Left = 135 Top = 195 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object ImgMin: TImage Tag = 13 Left = 175 Top = 195 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object ImgMult: TImage Tag = 10 Left = 135 Top = 220 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object ImgDiv: TImage Tag = 11 Left = 175 Top = 220 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object ImgEqual: TImage Tag = 14 Left = 135 Top = 245 Width = 70 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object ImgClose: TImage Tag = 1100 Left = 195 Top = 10 Width = 16 Height = 16 Cursor = crHandPoint Hint = 'Exit' ParentShowHint = False Picture.Data = { 07544269746D617036030000424D360300000000000036000000280000001000 000010000000010018000000000000030000C40E0000C40E0000000000000000 000000FF0000FF0000FF0000FF0000FF0093837169523A634B32634B3269523A 93837100FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF009886737256 3975583A7256396B5035634B32634B32634B32634B3293837100FF0000FF0000 FF0000FF0000FF00957A5E936F4A98724C97724C936F4A8C694681614173573A 634B32634B32634B327A655000FF0000FF0000FF00B69D83AA8055AF875DAF87 5EAE865CAC8358A67D539D774F906D487F5F3F684F34634B32634B3293837100 FF0000FF00B28B64B89570BA9773B99672B89470B6926CB48F68B18961A98055 98734C836241684F34634B32634B3200FF00CAB095BF9E7DC2A384C2A3840000 00D6C1ACBD9C7ABD9B79BB9976B6916B000000D6C1AC7F5F3F634B32634B3293 8371C0A181C8AC8FC9AE92C8AC90C5A88B000000D6C1ACC0A181C0A181000000 D6C1ACA98055906D4873573A634B3269523AC7AA8DCFB69DCFB79ECDB49AC9AE 92C4A687000000D6C1AC000000D6C1ACBB9976B189619D774F816141634B3263 4B32CDB399D4BEA8D4BFA9D2BBA3CDB399C5A88BC0A181000000D6C1ACC0A181 BD9B79B48F68A67D538C69466B5035634B32D2BBA3D8C5B1D9C6B2D6C1ACD1BA A2CAAF93000000D6C1AC000000D6C1ACBD9C7AB6926CAC8358936F4A72563969 523ADFCFBEDBC9B6DDCBB9DAC8B5D6C1AC000000D6C1ACC5A88BC4A687000000 D6C1ACB89470AE865C97724C75583A93837100FF00DBC9B6DFCFBEDECDBC0000 00D6C1ACD1BAA2CDB399C9AE92C5A88B000000B99672AF875E98724C72563900 FF0000FF00E3D5C6DFCFBEE0D1C1DECDBCDAC8B5D6C1ACD2BBA3CDB49AC8AC90 C2A384BA9773AF875D936F4A98867300FF0000FF0000FF00DFCEBDDFCFBEDFCF BEDDCBB9D9C6B2D4BFA9CFB79EC9AE92C2A384B89570AA8055957A5E00FF0000 FF0000FF0000FF0000FF00E3D5C6DBC9B6DBC9B6D8C5B1D4BEA8CFB69DC8AC8F BF9E7DB28B64B69D8300FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF 00DFCFBED2BBA3CDB399C7AA8DC0A181CAB09500FF0000FF0000FF0000FF0000 FF00} ShowHint = True Transparent = True OnClick = ImgCloseClick end object ImgMinimize: TImage Tag = 1100 Left = 170 Top = 10 Width = 16 Height = 16 Cursor = crHandPoint Hint = 'Minimize' ParentShowHint = False Picture.Data = { 07544269746D617036030000424D360300000000000036000000280000001000 000010000000010018000000000000030000C40E0000C40E0000000000000000 000000FF0000FF0000FF0000FF0000FF0093837169523A634B32634B3269523A 93837100FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF009886737256 3975583A7256396B5035634B32634B32634B32634B3293837100FF0000FF0000 FF0000FF0000FF00957A5E936F4A98724C97724C936F4A8C694681614173573A 634B32634B32634B327A655000FF0000FF0000FF00B69D83AA8055AF875DAF87 5EAE865CAC8358A67D539D774F906D487F5F3F684F34634B32634B3293837100 FF0000FF00B28B64B89570BA9773B99672B89470B6926CB48F68B18961A98055 98734C836241684F34634B32634B3200FF00CAB095BF9E7DC2A384C2A384C0A1 81BF9E7DBD9C7ABD9B79BB9976B6916BAD845A98734C7F5F3F634B32634B3293 8371C0A181C8AC8FC9AE92C8AC90C5A88BC2A484C0A181C0A181C0A181BF9E7D B6916BA98055906D4873573A634B3269523AC7AA8DCFB69DCFB79ECDB49AD4BE A8D4BEA8D4BEA8D4BEA8D4BEA8D4BEA8D4BEA8B189619D774F816141634B3263 4B32CDB399D4BEA8D4BFA9D2BBA3634B32634B32634B32634B32634B32634B32 D4BEA8B48F68A67D538C69466B5035634B32D2BBA3D8C5B1D9C6B2D6C1ACD1BA A2CAAF93C2A484C0A181C0A181C0A181BD9C7AB6926CAC8358936F4A72563969 523ADFCFBEDBC9B6DDCBB9DAC8B5D6C1ACD0B8A0CAAF93C5A88BC4A687C2A484 BF9E7DB89470AE865C97724C75583A93837100FF00DBC9B6DFCFBEDECDBCDBC8 B5D6C1ACD1BAA2CDB399C9AE92C5A88BC0A181B99672AF875E98724C72563900 FF0000FF00E3D5C6DFCFBEE0D1C1DECDBCDAC8B5D6C1ACD2BBA3CDB49AC8AC90 C2A384BA9773AF875D936F4A98867300FF0000FF0000FF00DFCEBDDFCFBEDFCF BEDDCBB9D9C6B2D4BFA9CFB79EC9AE92C2A384B89570AA8055957A5E00FF0000 FF0000FF0000FF0000FF00E3D5C6DBC9B6DBC9B6D8C5B1D4BEA8CFB69DC8AC8F BF9E7DB28B64B69D8300FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF 00DFCFBED2BBA3CDB399C7AA8DC0A181CAB09500FF0000FF0000FF0000FF0000 FF00} ShowHint = True Transparent = True OnClick = ImgMinimizeClick end object PointImg: TImage Tag = 15 Left = 55 Top = 245 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object PiImg: TImage Tag = 16 Left = 95 Top = 245 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object InvImg: TImage Tag = 17 Left = 15 Top = 145 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object XyImg: TImage Tag = 18 Left = 15 Top = 70 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object ExpImg: TImage Tag = 19 Left = 55 Top = 70 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object SinImg: TImage Tag = 20 Left = 95 Top = 70 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object CosImg: TImage Tag = 21 Left = 135 Top = 70 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object TanImg: TImage Tag = 22 Left = 175 Top = 70 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object XinvImg: TImage Tag = 23 Left = 15 Top = 95 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object RootImg: TImage Tag = 24 Left = 55 Top = 95 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object X2Img: TImage Tag = 25 Left = 95 Top = 95 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object LogImg: TImage Tag = 26 Left = 135 Top = 95 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object LnImg: TImage Tag = 27 Left = 175 Top = 95 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object PmImg: TImage Tag = 28 Left = 15 Top = 120 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object McImg: TImage Tag = 29 Left = 95 Top = 120 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object MrImg: TImage Tag = 30 Left = 135 Top = 120 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object MpImg: TImage Tag = 31 Left = 175 Top = 120 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object CImg: TImage Tag = 32 Left = 135 Top = 170 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object AcImg: TImage Tag = 33 Left = 175 Top = 170 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object Image1: TImage Tag = 1100 Left = 145 Top = 10 Width = 16 Height = 16 Cursor = crHandPoint Hint = 'About..' AutoSize = True ParentShowHint = False Picture.Data = { 07544269746D617036030000424D360300000000000036000000280000001000 000010000000010018000000000000030000C40E0000C40E0000000000000000 000000FF0000FF0000FF0000FF0000FF0093837169523A634B32634B3269523A 93837100FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF009886737256 3975583A7256396B5035634B32634B32634B32634B3293837100FF0000FF0000 FF0000FF0000FF00957A5E936F4A98724C97724C936F4A8C694681614173573A 634B32634B32634B327A655000FF0000FF0000FF00B69D83AA8055AF875DAF87 5EAE865CAC8358A67D539D774F906D487F5F3F684F34634B32634B3293837100 FF0000FF00B28B64B89570BA9773B99672B89470000000000000000000DFCFBE 98734C836241684F34634B32634B3200FF00CAB095BF9E7DC2A384C2A384C0A1 81BF9E7D000000000000000000DFCFBEAD845A98734C7F5F3F634B32634B3293 8371C0A181C8AC8FC9AE92C8AC90C5A88BC2A484C0A181C0A181C0A181BF9E7D B6916BA98055906D4873573A634B3269523AC7AA8DCFB69DCFB79ECDB49AC9AE 92C4A687C0A181000000DFCFBEC0A181BB9976B189619D774F816141634B3263 4B32CDB399D4BEA8D4BFA9D2BBA3CDB399C5A88BC0A181000000DFCFBEC0A181 BD9B79B48F68A67D538C69466B5035634B32D2BBA3D8C5B1D9C6B2D6C1ACD1BA A2CAAF93C2A484000000DFCFBEC0A181BD9C7AB6926CAC8358936F4A72563969 523ADFCFBEDBC9B6DDCBB9DAC8B5D6C1ACD0B8A0000000000000000000DFCFBE BF9E7DB89470AE865C97724C75583A93837100FF00DBC9B6DFCFBEDECDBCDBC8 B5D6C1AC000000000000000000DFCFBEC0A181B99672AF875E98724C72563900 FF0000FF00E3D5C6DFCFBEE0D1C1DECDBCDAC8B5000000000000000000DFCFBE C2A384BA9773AF875D936F4A98867300FF0000FF0000FF00DFCEBDDFCFBEDFCF BEDDCBB9D9C6B2D4BFA9CFB79EC9AE92C2A384B89570AA8055957A5E00FF0000 FF0000FF0000FF0000FF00E3D5C6DBC9B6DBC9B6D8C5B1D4BEA8CFB69DC8AC8F BF9E7DB28B64B69D8300FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF 00DFCFBED2BBA3CDB399C7AA8DC0A181CAB09500FF0000FF0000FF0000FF0000 FF00} ShowHint = True Transparent = True OnClick = Image1Click end object RanImg: TImage Tag = 34 Left = 55 Top = 120 Width = 30 Height = 20 Cursor = crHandPoint Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object Label3: TLabel Left = 15 Top = 20 Width = 9 Height = 13 Hint = 'Memory' Caption = 'M' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True Transparent = True Visible = False end object RoundImg: TImage Tag = 37 Left = 175 Top = 145 Width = 30 Height = 20 Cursor = crHandPoint AutoSize = True Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object IntImg: TImage Tag = 36 Left = 135 Top = 145 Width = 30 Height = 20 Cursor = crHandPoint AutoSize = True Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object FactImg: TImage Tag = 35 Left = 95 Top = 145 Width = 30 Height = 20 Cursor = crHandPoint AutoSize = True Transparent = True OnMouseDown = Img0MouseDown OnMouseMove = Img0MouseMove OnMouseUp = Img0MouseUp end object Label4: TLabel Left = 80 Top = 20 Width = 8 Height = 13 Hint = 'Degrees' Caption = 'D' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True Transparent = True end end