var
vwebaddr, vpostdata, vflags, vframe, vheaders: olevariant;
iloop: integer;
text,stpostdata: string;
begin
text:=memo1.text;
stpostdata:='to='+combobox1.text+'&msg='+text+'&dcs=0';
vheaders:= 'content-type:application/x-www- form-urlencoded'+ #10#13#0;
vpostdata:= vararraycreate([0, length(stpostdata)], varbyte);
for iloop := 0 to length(stpostdata)- 1 do
begin
vpostdata[iloop]:= ord(stpostdata[iloop+1]); 
end;
vpostdata[length(stpostdata)]:= 0;
tvardata(vpostdata).vtype:= vararray;
vwebaddr:='http://sms.smarts-gsm.ru/sms.cgi';
vflags:=navnowritetocache;
vframe:=emptyparam;
try
webbrowser1.navigate2(vwebaddr,vflags,vframe,vpostdata,vheaders);
except
end;

Add(SMTP,11260110,210,175)
{
}

#sha
Make(delphi)
Add(MainForm,2459756,21,105)
{
 Left=80
 Top=65
 Width=402
 Height=292
 Color=-16777211
 Ctl3D=0
 Caption="Label"
 TransparentColor=-16777201
}
Add(Memo,12077824,287,203)
{
 Left=200
 Top=15
 Width=185
 Height=110
}
Add(SMTP,8294361,196,203)
{
 Server=""
 To="+38050xxxxxxx@sms.mts.com.ua"
 Subject="PRIME"
 link(onSend,12077824:doAdd,[])
 link(onStatus,14783760:doAdd,[(260,216)(260,272)])
}
Add(Memo,14783760,287,266)
{
 Left=200
 Top=130
 Width=185
 Height=115
}
Add(Button,9546537,98,203)
{
 Left=20
 Top=70
 link(onClick,8294361:doSend,[])
}

Add(MainForm,2459756,168,273)
{
 Left=80
 Top=65
 Width=402
 Height=292
 Color=-16777211
 Ctl3D=0
 Caption="Label"
 TransparentColor=-16777201
}
Add(Memo,12077824,364,329)
{
 Left=200
 Top=15
 Width=185
 Height=110
}
Add(SMTP,8294361,273,329)
{
 Server=""
 From="+380501xxxxxx@sms.mts.com.ua"
 To="+38050xxxxxxx@sms.mts.com.ua"
 Subject="PRIME"
 link(onSend,12077824:doAdd,[])
 link(onStatus,14783760:doAdd,[(337,342)(337,398)])
}
Add(Memo,14783760,364,392)
{
 Left=200
 Top=130
 Width=185
 Height=115
}
Add(Button,9546537,175,329)
{
 Left=20
 Top=70
 link(onClick,8294361:doSend,[])
}