Авторизация на сайте POST + SSL

procedure TForm1.authClick(Sender: TObject);
var
  post:TStringList;
  result:string;
begin
  status.Caption:=('Идет авторизация, подождите...');
  try
    post:=TStringList.Create;
    idhttp.HandleRedirects:=True;
      try
        post.Add('user=login');
        post.Add('password=pass');
        post.Add('enteringButton=Войти >>>>');
        result:=idhttp.Post('http://users.v8.1c.ru/', post);
      if Pos('logout.jsp', result) > 0 then
        status.Caption:=('Авторизация прошла успешно...')
      else
        status.Caption:=('Авторизация провалена, проверьте данные...')
      except
        post.Free;
      end;
    memo.Lines.Add(idhttp.Get('http://users.v8.1c.ru/actual.jsp'));
  except
    status.Caption:=('Нет доступа к сети, проверьте подключение...');
  end;
  if status.Caption = 'Авторизация прошла успешно...' then updates.Enabled:= True;
end;

var
HTTP:THTTPSend;
post:TStringStream;
begin
HTTP:=THTTPSend.Create;
post:=TStringStream.Create;
post.WriteString('code=login');
post.WriteString('password=pass');
HTTP.Document.LoadFromStream(post);