function parse_otvet(otvet, nach, kon:string):string;

var

i, k:integer;

begin

  i:=0;

  k:=0;

  i:=Pos(nach,otvet);

  otvet:=Copy (otvet,i+Length(nach),Length(otvet)-Length(nach));

  i:=Pos(kon,otvet);

  if i=0 then

  begin

    i:=Length(otvet);

    K:=0;

  end else k:=Length(kon);

  otvet:=Copy (otvet,1,i-1);

  result:=otvet;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var

  otv:string;

  kod:string;

  zap:tstringlist;

  zap1:string;

  adr:string;

  log, pass:string;

begin

   log:='aaaaa111';

   pass:='123123123';

   adr:='http://chcgreen.net';

   otv:=ht.Get(adr);

   kod:=parse_otvet(otv, '<input type="hidden" name="_csrf" value="', '" />');

   memo1.Lines.Clear;

   memo1.Text:=otv;

   showmessage(kod);

   //zap1:='username='+log +'&'+'password='+pass+'&'+ '_csrf='+kod;

   zap:=tstringlist.Create;;

   zap.Add('username = '+log);

   zap.Add('password = '+pass);

   zap.Add('_csrf = '+kod);

   //zap.add('_remember_me=on');

   adr:='http://chcgreen.net/security_check/';

   //ht.Request.ContentType:='application/x-www-form-urlencoded';

   otv:=ht.post(adr, zap);

   zap.Free;

   memo1.Lines.Clear;

   memo1.Text:=otv;

end;