Передача данных USB модему

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, BCPort;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    BComPort1: TBComPort;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SendSMS(nTel: String);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function ucs2(s: string): string;
var i,k: integer;
begin
for i:=1 to length(s) do begin
  k:= ord(s[i]);
  if k>=192 then k:= k + 1040 - 192;
  result:= result + inttohex(k,4)
end
end;
 
function Encode7bit(Src:String):String;
var Dst:String;
    i:Integer;
    CurS,NextS:Byte;
    TStr:String;
begin
  for i:=1 to Length(Src) do begin
    if (i mod 8)=0 then Continue;
    TStr:=Copy(Src,i,1);
    CurS:=Ord(TStr[1]);
    if (i mod 8)>1 then
      CurS:=(CurS shr ((i mod 8)-1) );
    if i<Length(Src) then begin
      TStr:=Copy(Src,i+1,1);
      NextS:=Ord(TStr[1]);
    end else
      NextS:=0;
    NextS:=(NextS shl (8-(i mod 8)));
    Dst:=Dst+IntToHex(CurS+NextS,2);
  end;
  Result:=Dst;
end;
 
procedure TForm1.SendSMS(nTel: String);
var
  lngt, i: Integer;
  nmes, m, tel, vi: String;
  h:THandle;
begin
h:=CreateEvent(nil, true,false, 'et');
  m := memo1.Text;
  // Полуоктеты представляют десятичные цифры, и, например, номер отправителя получается
  // при перестановке десятичных цифр в каждом октете: от "72 38 88 09 00 F1" к "27 83 88 90 00 1F".
  // Длина телефонного номера нечетна, поэтому в последний октет добавлен F.
  if Length(nTel) mod 2 = 1 then
    nTel := nTel + 'F';
  for i := 1 to Length(nTel) do
    if i mod 2 = 0 then
      tel := tel + nTel[i] + nTel[i-1];
 
  nmes :=      '00'; // Длина информации о SMSC. Длина - 0 означает, что для отправки СМС должен использоваться номер SMSC,
// сохраненный в телефоне. Этот октет является дополнительным. 
//Для некотоорых телефонов этот октет должен быть опущен! (Но все равно будет использоватьтся СМСЦ, сохраненный в телефоне.
  nmes := nmes + '11'; // Первый октет SMS-SUBMIT
  nmes := nmes + '00'; // TP-Message-Reference. Значение 0х00 указывает на то, что в качестве номера телефона отправителя будет использоваться номер.
  nmes := nmes + '0B'; // Длина номера получателя (11)
  nmes := nmes + '81'; // Тип-адреса. (91 указывает международный формат телефонного номера, 81 - местный формат).
  nmes := nmes + tel;  // Телефонный номер получателя в международном формате в полуоктетах (46708251358). 
//Если указать номер телефона в местном формате (Type-of-Address равен 81 вместо 91), то для указания номера телефона можно было бы использовать 
//10 октетов (0x0A) и октеты были бы представлены как 7080523185 (0708251358).
  nmes := nmes + '00'; // TP-PID. Идентификатор протокола
  nmes := nmes + '00'; // TP-DCS.
  nmes := nmes + 'A8'; // TP-Validity-Period. "AA" означает 4 дня. Этот октет является дополнительным, см. 4 и 3 первого октета
  nmes := nmes + IntToHex(Length(m),2); // TP-User-Data-Length. Длина сообщения.
  nmes := nmes + Encode7bit(m); // TP-User-Data. Эти октеты представляют сообщение "hellohello", преобразованное в 7 битку.
  lngt := Round((length(nmes)-2)/2);
  form1.Memo1.Lines.Add('AT+CMGS='+IntToStr(lngt)+#13);
  form1.Memo1.Lines.Add(nmes);
  form1.bcomport1.WriteStr('AT'+#13);
    WaitForSingleObject(h,3000);
  form1.bcomport1.WriteStr('at+cmgf=1'+#13);
    WaitForSingleObject(h,3000);
  form1.BComPort1.WriteStr('AT+CMGS='+IntToStr(lngt)+#13);
  WaitForSingleObject(h,3000);
  form1.BComPort1.WriteStr(nmes+#26);
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.SendSMS('+79269011430');
end;