consuming web service with authentication allways give message Authentication required

Question

I try to use consume one web service with Delphi 2010. This web service is on port 8000 with authentication.

I implement the

function TForm4.EncodeL