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;