[NumLock]

Код:

function TYandexJobThread.Login: String;
var
  s: String;
  i: Integer;
begin
  Result:='';
  (* auth *)
  s:='';
  s:=s+'&from=passport';
  s:=s+'&retpath=https://passport.yandex.ru/passport?mode=passport';
  s:=s+'&display=page';
  s:=s+'&login='+StrToHex(ALogin);
  s:=s+'&passwd='+StrToHex(APass);
  s:=DoRequestHttps('POST', 'passport.yandex.ru', '/passport?mode=auth&twoweeks=yes', '', s);
  i:=Pos('Passport.idkey', s);
  if i=0 then raise Exception.Create('!Passport.idkey');
  s:=Trim(Copy(s, i+14, Length(s)));
  if s[1]<>'=' then raise Exception.Create('!Passport.idkey');
  s:=Trim(Copy(s, 2, Length(s)));
  i:=Pos(';', s);
  if i=0 then raise Exception.Create('!Passport.idkey');
  s:=Trim(Copy(s, 1, i-1));
  if s<>'''''' then raise Exception.Create('!auth');
end;

100% рабочий код