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

				unit ExitForm;
				
				interface
				
				uses
				  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
				  Dialogs, StdCtrls;
				
				type
				  TTheExitFom = class(TForm)
				    Label1: TLabel;
				  private
				    { Private declarations }
				  public
				    { Public declarations }
				  end;
				
				var
				  TheExitFom: TTheExitFom;
				
				implementation
				
				{$R *.dfm}
				
				end.