很好的手机发短信的例子。含GSM群发机设计原理和使用说明。还有详细代码

				object TheExitFom: TTheExitFom
				  Left = 564
				  Top = 337
				  BorderStyle = bsNone
				  Caption = 'TheExitFom'
				  ClientHeight = 166
				  ClientWidth = 340
				  Color = clBtnFace
				  Font.Charset = GB2312_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -12
				  Font.Name = #23435#20307
				  Font.Style = []
				  OldCreateOrder = False
				  Position = poMainFormCenter
				  PixelsPerInch = 96
				  TextHeight = 12
				  object Panel1: TPanel
				    Left = 0
				    Top = 0
				    Width = 340
				    Height = 166
				    Align = alClient
				    BevelInner = bvRaised
				    BevelOuter = bvLowered
				    Caption = #36864#20986#20013#65292#31245#20505'...'
				    Font.Charset = GB2312_CHARSET
				    Font.Color = clWindowText
				    Font.Height = -16
				    Font.Name = #23435#20307
				    Font.Style = []
				    ParentFont = False
				    TabOrder = 0
				  end
				end