Отправка смс

unit Unitl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, Psock, NMsmtp;
type
TForml = class(TForm)
oper: TComboBox;
sms: TMemo;
Labell: TLabel;
Label2: TLabel;
tel: TEdit;
Label3: TLabel;
Buttonl: TButton;
NMSMTP1: TNMSMTP;
kolvo: TLabel;
procedure ButtonlClick(Sender: TObject);
procedure smsChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Forml: TForml;
implementation
{$R *.dfm}
procedure TForml.ButtonlClick(Sender: TObject);
var
num: string; 
begin
NMSMTP1.PostMessage.Body.Clear; 
NMSMTP1.PostMessage.Body.AddStrings(sms.Lines);
//проверяем, какого оператора выбрал пользователь
case oper.Itemlndex of
0: num := '38066'+tel.Text+'@sms.jeans.com.ua'• //Джине
1: num := '38050'+tel.Text+'@sms.umc.com.ua'; //UMC
2: num := '38067'+tel.Text+'@sms.kyivstar.net'; //Киевстар
end;
NMSMTP1.PostMessage.ToAddress.Add(num); //адрес получателя
NMSMTP1.Connect; //соединяемся с сервером
NMSMTP1.SendMail; //отправляем почту
NMSMTP1.Disconnect; //отсоединяемся от сервера
//выводим сообщение об успешной отправке
ShowMessage{'Сообщение отправлено! '+ num) ;
end;
procedure TForml.smsChange(Sender: TObject);
begin
//количество введенных символов
kolvo.Caption := IntToStr(Length(sms.Text));
end;
end.