futamapas.dfm

This delphi 7 source code have a function to send SMS trough computer with serial communication. You

object fUtama: TfUtama
  Left = 257
  Top = 262
  Width = 330
  Height = 358
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Herlambang.InC >> Kirim SMS..'
  Color = clBlack
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001003030000001000800A80E00001600000028000000300000006000
    0000010008000000000000000000000000000000000000000000000000005844
    60000000000066333300A2BD9800A5C59C00ABCCA200B0D4A800B4DAAE008FB8
    8B00B9E2B400BCE6B8008FB88C00BFEABC00A3CDA100ABD6A9009CC39A00C2F1
    C000C2F0BF00C6F5C400C5F4C3008BB88A00A3D1A200C8F9C700C7F8C60098C8
    9800A4D5A400ABDDAB00BBEDBB00C3F6C30088AC8800C8FBC800CCFFCC00CBFE
    CB00D1FFD100748D7400D3FFD300D5FFD50056665600D9FFD900DBFFDB004A56
    4A00DDFFDD00CAE9CA00DEFFDE00E1FFE100E0FAE000E6FFE600EBFFEB00F4FF
    F400545654003839380086B787008ABB8B0091C2920090C1910095C696009CCE
    9D0098C999009BCC9C00A8DBA900A2D3A300ADE0AE00B6E9B700B3E6B400B7EA
    B800BEF1BF0091B792006C9D6E006694680077A8790076A6780079AA7B007DAE
    7F007BAC7D007EAF800080B1820083B4850087B889008BBC8D008EBF90009FD2
    A100A2D5A400A5D8A700AEE1B0005B735C00647C65006C856D007B967C00BAD9
    BB00CFEDD000D9F5DA00699A6C006B9C6E006A9B6D006E9F710072A3750093C6
    960047654E004052440066FF99004D996600838484005270730079C4D00086EC
    FF007CD7EA005B818900528C99004068730075AFBE0072CDED0064B2CF00444A
    4C006ED4FF0074D8FE0044708100689BAF0066BFE60065CBFF0066CCFF0063C0
    F0006CCEFD0058A5CC00445D6A005EC4FF0060C6FF0062C7FE0063C9FF004684
    A5005ABEFE005BC1FF005CC2FF0054AEE6005FC2FE0061C4FE005FB3E600539D
    C9004A8AB3006D9FBF003E57670051B7FF0056BCFF0053B2F20059BAFD004D99
    CC0042759900384C59004CB2FF004EADF20054B3FC004692CC004B9ED9004B94
    CA0059A4DA0045779B003E6B8C006781940044A9FF00418ECC00488EC7003B6E
    99003E719900365066009AA0A5003DA3FF003985CC004AA5FA003E8ACC004EAB
    FB0053AAFA003E7CB2003E6C970036424D0064707B00359BFF003F9CFA003480
    CC0047A1F9004387C800336699003669990033393F002F90FD003295FE00317B
    CB00449CF9003E7FC7004082C700334C66006B87A4002D8CFB002C88FA002D86
    EF003890F9002E75C9003E95F8003983DF00336EB5004993E8003A70AE003149
    650084AFE2002A82F8002B85F9003486F6003378D4003675C5003266A7003449
    6400B6BABF00287DF7002980F8002B78E5002A75DF002F7FF5002C6CC6002D5C
    A100315990005495F300314664002372F4002475F4002779F6002875F300256B
    DC002A78F4002C7AF4002863C400347DF4002A67C400326CC500236FF3002672
    F3002765CF00265FC300BBCEEF00335BAC00384F7C0033456800CAD3E4004953
    8800CCCCCC0095959500939393007B7B7B00707070006B6B6B00686868006060
    60004C4C4C004444440043434300404040003C3C3C0033333300000000000101
    010101010101010101010101010101F365F6F6F6F6F6F6F6F565650101010101
    0101010101010101010101010101010101010101010101010101010101F3F6F9
    FCFDFC7B7B7B7B7BFDFA31F66501010101010101010101010101010101010101
    0101010101010101010101F3318B9190FEFE8B8182837C7D7D887332F9F60101
    0101010101010101010101010101010101010101010101010101F5EED8968C8C
    92FE738D8182837C7D7D7F876C32316501010101010101010101010101010101
    010101010101010101F3D8E7EA96938C97918E8D8D8182837C7D7D7F7688FCFA
    F6010101010101010101010101010101010101010101010101F3E3E7E996996A
    677C8C8D8D8D8182837C7D7D7F768792FDF80101010101010101010101010101
    010101010101010101F3E3E8E896BD6565796666698D998A6F7D7C7D7D7F7678
    8BFDF801010101010101010101010101010101010101010101F3E5DFDF9EDAEF
    C9C665658A85A3F7F969837C7D7D7F76776CFBAD010101010101010101010101
    010101010101010101F3E5E1E19E9DC1C1AFC9EBDAA8878A7487786F6E7D7D7F
    767AFCAD010101010101010101010101010101010101010101F3E5E2E29E9D9D
    93939DC1AF8CA3316A7873F9AD726F6E717AFCAD010101010101010101010101
    010101010101010101F3D7D6D6A79D9BA1969393938CC9D1A36EC9F1D199F9F9
    677AFCAD010101010101010101010101010101010101010101F3E6D6D6A79DA2
    1D5631A2919694AFA88DA8DAE4C6D1D1C988FCAD010101010101010101010101
    010101010101010101F3E6D6D6A79DA20D03040D422225929B9F8E8D8D81A9DA
    CC88FCAD010101010101010101010101010101010101010101F3E6CCCCA5A4A2
    0D04030340401B410F572592738984828388FCAD010101010101010101010101
    010101010101010101F3C5CDCCA5A4A20D050403523D3F40411C1E170D5725AC
    8988FCAD010101010101010101010101010101010101010101F3B5D0CCA5A4A2
    0D050504373A50523D3F1B10171F20579A88FCAD010101010101010101010101
    010101010101010101F3CECECCA5A4A20D0605051434363738513B533E1B1C57
    9A90FCAD010101010101010101010101010101010101010101F3FEACC4B0AEA2
    0D0706050845484C34351838193B3F579A90FCAD010101010101010101010101
    010101010101010101F3C7C4C1B0AEBC150707060B5B5D5F474A334E35395257
    9A90FCAD010101010101010101010101010101010101010101F3B5B5C3B0AEBC
    150907070F5B5B5B5B435F494B3339579190FCAD010101010101010101010101
    010101010101010101F3C7C3C3B0AEBC150A0907075B5B5B5B5B5B5B5E464E22
    9190FCAD010101010101010101010101010101010101010101F3FEFEC3B0AEBC
    150C0A0907465B5B5B5B5B5B5B5B48229198FCAD010101010101010101010101
    010101010101010101F3C7BAB9B8B7BC3C100C0A090D344C485E5B5B5B5B4922
    9196FCAD010101010101010101010101010101010101010101F3B5A2B9B8B7BC
    3C12100C0A0E3537393838604D484C22A196FCAD010101010101010101010101
    010101010101010101F3BBB9B9B8B7BC3C1612100C094F353739385051523B56
    A196FCAD010101010101010101010101010101010101010101F3B2B1B1B8B6BC
    501F1612100C184F3537393850515256A196FCAD010101010101010101010101
    010101010101010101F3B2A6A6C2B6BC151F1F1612110E4E4F35373938505156
    A19EFCAD010101010101010101010101010101010101010101F3B2A6A6C2B6C8
    15211F1F16130C4E4E4F3537393A5056A09EFCAD010101010101010101010101
    010101010101010101F39FA6A6C2BEC80D24211F1F16133A4D4E4F3537393A56
    A09EFCAD010101010101010101010101010101010101010101F39FA8A8C2BEC8
    0D2624211F20171B4D4D4E4F35373955A0A7FCAD010101010101010101010101
    010101010101010101F39FA8A8C2BFC80E2B2624211F2017194C4D4E4F353755
    A0A7FCAD010101010101010101010101010101010101010101F39FA8A8D7CBC8
    072C2B2624211F2017344C4D4E4F3555A0A7FCAD010101010101010101010101
    010101010101010101F3989595D7CBC8582E2C2B2624211F201A4B4C4D344F55
    B4A5FCAD010101010101010101010101010101010101010101F3989595D7CADB
    0C2F2E2C2B2623211F204C4B4C4D3455B4A5FCAD010101010101010101010101
    010101010101010101F3989595D7D3DB2A2F2F2E2C292623211F39484B4C4D54
    B4A5FCAD010101010101010101010101010101010101010101F3908F8FD7D2DB
    59302F2F2E2C292623213F47484B4C54B4A5FCAD010101010101010101010101
    010101010101010101F3908F8FE5D2DB5A30302F2F2E2C292623124547484B54
    B4A5FCAD010101010101010101010101010101010101010101F3888181E5DEDB
    2D3030302F2F2E2C2926235F46474854B3B0FCAD010101010101010101010101
    010101010101010101F3888282E5DEDB27303030302F2F2E2C27265E5F464754
    B3B0FCAD010101010101010101010101010101010101010101F3888585E3DDDB
    FE255522035859592E2B275C5E5F4625B3B0FCAD010101010101010101010101
    010101010101010101F3888686E3DDECF0D9EDD9DBB5FE28255657445C5E5F25
    B3B0FCAD010101010101010101010101010101010101010101F37A7E7EE3DCF0
    020202020000F0CFD8D9C8B532626162B3B8FCAD010101010101010101010101
    010101010101010101F37A7F7FEADCDCDDD4E6ECF0F000CDCACBBFBFC0C2CFD9
    C5B8FCAD010101010101010101010101010101010101010101F37A7777EAE7DC
    DCDDDDDEDED2D2D3CACACBD4BFBEBEB6B6B8FCAD010101010101010101010101
    010101010101010101F273746B9ABBECE3E0DDDDDEDED2D2D3CACAD962616C6C
    CDB8FCAD01010101010101010101010101010101010101010101F5666A6D6968
    696F6B80ABD8D8D7D5D3CAD964636364C2C2F9AD010101010101010101010101
    01010101010101010101010101F5F5707B6B746F75797688908991AA806B7373
    CF92AD0101010101010101010101010101010101010101010101010101010101
    0101F3F2F3F4F8F8F89C9C9C9CADF6ADAD01010101010101010101010101FFFF
    8007FFFF0000FFFE0001FFFF0000FFF80000FFFF0000FFF000003FFF0000FFE0
    00001FFF0000FFE000000FFF0000FFE0000007FF0000FFE0000003FF0000FFE0
    000003FF0000FFE0000003FF0000FFE0000003FF0000FFE0000003FF0000FFE0
    000003FF0000FFE0000003FF0000FFE0000003FF0000FFE0000003FF0000FFE0
    000003FF0000FFE0000003FF0000FFE0000003FF0000FFE0000003FF0000FFE0
    000003FF0000FFE0000003FF0000FFE0000003FF0000FFE0000003FF0000FFE0
    000003FF0000FFE0000003FF0000FFE0000003FF0000FFE0000003FF0000FFE0
    000003FF0000FFE0000003FF0000FFE0000003FF0000FFE0000003FF0000FFE0
    000003FF0000FFE0000003FF0000FFE0000003FF0000FFE0000003FF0000FFE0
    000003FF0000FFE0000003FF0000FFE0000003FF0000FFE0000003FF0000FFE0
    000003FF0000FFE0000003FF0000FFE0000003FF0000FFE0000003FF0000FFE0
    000003FF0000FFF0000003FF0000FFFE000007FF0000FFFFF0001FFF0000}
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton7: TSpeedButton
    Left = 248
    Top = 214
    Width = 73
    Height = 22
    Caption = 'Kirim SMS'
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = SpeedButton7Click
  end
  object SpeedButton8: TSpeedButton
    Left = 248
    Top = 238
    Width = 73
    Height = 22
    Caption = 'Clear'
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = SpeedButton8Click
  end
  object Label3: TLabel
    Left = 216
    Top = 280
    Width = 33
    Height = 13
    AutoSize = False
    Caption = 'Sisa :'
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object lblSisa: TLabel
    Left = 256
    Top = 280
    Width = 65
    Height = 17
    AutoSize = False
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object SpeedButton3: TSpeedButton
    Left = 13
    Top = 272
    Width = 68
    Height = 25
    Caption = 'KONEK'
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = SpeedButton3Click
  end
  object Label5: TLabel
    Left = 15
    Top = 218
    Width = 24