[cyberexpert]

Здравствуйте! Столкнулся с некой проблемой, связанной с HTTP авторизацией, используя tidhttp. Привожу код:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  PostData: TStringList;
  Response: TStringStream;
begin
  Response := TStringStream.Create('');
  PostData := TStringList.Create;

  try
    IdHTTP1.Post(Edit1.Text, PostData, Response);
    Memo1.Lines.Text := Response.DataString;
  finally
    Response.Free;
    PostData.Free;
    IdHTTP1.Disconnect;
  end;
end;

procedure TForm1.IdHTTP1Authorization(Sender: TObject;
  Authentication: TIdAuthentication; var Handled: Boolean);
begin
  Handled := true;
  Authentication.Username := 'login';
  Authentication.Password := 'password';
end;

В результате авторизации не происходит. IdHttp мне возвращает "401 Unauthorized". Пожалуйста, помогите найти ошибку!

Быть может я забыл учесть еще какие-либо моменты? Очень жду ваших ответов!