ifstream in("C:\\123.txt");
        char i[128];
        int a = 0 ,b = 0;
        while (true){
                in.read(i, 1);
                if (i[0] == ' ')++b;
                if (i[0] == '\n'){
                        ++a;
                        ++b;
                }
                if (in.eof()){
                        ++a;
                        ++b;
                        break;
                }
        }
        b = b/a;

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;