procedure TNewThread.Execute;
var
data  : TStringList;
begin
str:=form1.idhttp1.get('http://site.ru');
EVENTTARGET:=(ParserBlock(Str, '("','",'));
VIEWSTATE:=(ParserBlock(Str, 'VIEWSTATE" value="','" />'));

data:=tstringlist.create;
Data.Add('ctl00$ctl21$cms06838$ddlMsisdnCode='+form1.ComboBox1.Text+'');
Data.Add('ctl00$ctl21$cms06838$tbUserName='+form1.edit1.Text+'');
Data.Add('__EVENTTARGET='+EVENTTARGET+'');
Data.Add('__VIEWSTATE='+VIEWSTATE+'');
Data.Add('ctl00$ctl21$cms06838$ddlCity=044');
Data.Add('ctl00$ctl21$cms06838$ddlRegion=9');
Data.Add('ctl00$ctl21$cms06838$gender=rbM');
form1.idhttp1.post('http://site.ru,data);
data.free;
end;