Mira a ver si te sirve esta función que hice:
Código Delphi
[-]
procedure Descargar(const Url, UrlInicio, Usuario, Nip: String; Contenido: TStream);
var
IdHttp: TIdHttp;
Campos: TStringList;
begin
IdHttp := TIdHttp.Create;
Campos := TStringList.Create;
try
IdHttp.HandleRedirects := true;
IdHttp.AllowCookies := true;
IdHttp.HTTPOptions := IdHttp.HTTPOptions + [hoForceEncodeParams];
Campos.Values['usuario'] := Usuario;
Campos.Values['nip'] := Nip;
IdHttp.Post(UrlInicio, Campos);
IdHttp.Get(Url, Contenido);
Contenido.Position := 0;
finally
IdHttp.Free;
Campos.Free;
end;
end;
// Saludos