Gostaria de perguntar se alguém foi gentil o suficiente para me explicar como fazer o login na página do aplicativo Delphi. Todos os exemplos que encontrei aqui se revelaram inúteis para mim ou estou fazendo algo errado. Estou cansado da busca e do código que não funciona.

Não há mensagem de erro, eu até recebo o código da página no Memo, mas parece que é código da página de login (não conta página [dashboard]) - parece que este código não pode passar a autenticação em tudo e eu não sei porque.

O que está errado neste código:

procedure Login;
var
 HTTP: TIdHTTP;
 Param: TStringList;
 S: String;
begin
 HTTP := TIdHTTP.Create(nil);
 HTTP.CookieManager := Main_Form.CookieManager;
 Param := TStringList.Create;
 Param.Clear;
 Param.Add('login=example');
 Param.Add('password=example');

try
 HTTP.Get ('http://www.filestrum.com/login.html');
 HTTP.Post('http://www.filestrum.com/login.html', Param);
 S := HTTP.Get ('http://www.filestrum.com/?op=my_account');
 Main_Form.Memo2.Lines.Add(S);
finally
  HTTP.Free;
  Param.Free;
end;
end;

ou com esta versão:

procedure Login;
var
 HTTP: TIdHTTP;
 S: String;
begin  
 HTTP                             := TIdHTTP.Create(nil);
 HTTP.CookieManager               := Main_Form.CookieManager;
 HTTP.Request.BasicAuthentication := True;
 HTTP.Request.Username            := 'example';
 HTTP.Request.Password            := 'example';
 HTTP.AllowCookies                := True;
 HTTP.HandleRedirects             := True;

 S := HTTP.Get ('http://www.filestrum.com/?op=my_account');
 Main_Form.Memo2.Lines.Add(S);
end;

Usou o Delphi XE2 e não há como fazer este código rodar e efetuar login. É o mesmo com a demonstração do XE3. Como eu disse, estou muito cansado procurando alguma solução, desperdiçando dias e nada.

Por favor pessoal, ajuda aqui. Realmente preciso disso.