以编程方式登录安全网站

Question

我已经在site44.com托管的密码安全网站上为我的Firemonkey应用设置了帮助。

将密码作为URL的一部分传递并不适用于某些浏览器，因为它们认为它不安全。所以我尝试了以下代码。这也不起作用。函数登录返回网站的登录HTML，但实际上并没有登录。你能告诉我我的代码在哪里错了吗？

procedure TMyMainForm.OnlineHelp1Execute(Sender: TObject);
function Login: string;
var
  IdHTTP: TIdHTTP;
  Request: TStringList;
  Response: TMemoryStream;
begin
  Result := '';
  try
    Response := TMemoryStream.Create;
    try
      Request := TStringList.Create;
      try
        Request.Add('password=mypassword');
        IdHTTP := TIdHTTP.Create;
        try
          IdHTTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
          IdHTTP.AllowCookies := True;
          IdHTTP.HandleRedirects := False;
          IdHTTP.Post('https://mysite.site44.com/', Request, Response);
          Result := IdHTTP.Get('https://mysite.site44.com/');
        finally
          IdHTTP.Free;
        end;
      finally
        Request.Free;
      end;
    finally
      Response.Free;
    end;
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
end;

begin
 ShowMessage(Login);
end;