[Taemin]

Ошибки уже никакие не выпрыгивают, но и залогиниться не получается

IOHandler -> SSL Options -> Method = sslvSSLv3
IOHandler -> SSL Options -> Mode = sslmClient

Процедура в финишном варианте выглядит вот так:

Код:

procedure TForm1.btn1Click(Sender: TObject);
var
  StrPage,KSlink,TOKEN,OGLYAD,MONEY:string;
  log:TStringList;
begin
  KSlink:=idhtp1.Get('https://my.kyivstar.ua/tbmb/login/perform.do');
  TOKEN:=Copy(KSlink, Pos('org.apache.struts.taglib.html.TOKEN', KSlink)+44, 32);

 log:=TStringList.Create;
 log.Add('org.apache.struts.taglib.html.TOKEN='+TOKEN);
 log.Add('isSubmitted=True');
 log.Add('USERNAME= ');
 log.Add('USER_NAME= ');
 log.Add('ORIG_URL= ');
 log.Add('isInetUser=null');
 log.Add('buser= ');
 log.Add('bpath= ');
 log.Add('user='+edt1.Text);
 log.Add('password='+edt2.Text);
 log.Add('Submit=Вхід в систему');
 log.Add('value(jumpTo)= ');
 log.Add('value(jumpToUrl)= ');

 edt4.Text:=TOKEN;

 sleep(5000);

  OGLYAD:=idhtp1.Get('https://my.kyivstar.ua/tbmb/disclaimer/show.do');
  MONEY:=Copy(OGLYAD, Pos('Мій Київстар', OGLYAD)+0, 500);
  edt3.Text:=MONEY;
  log.Free;

end;

Те параметры, где значение пустое – пробовал вообще без них, пробовал с ними – ничего не меняется. Подскажите в чем может состоять ошибка?