Авторизация на сайте

[xakkkkker]

------------
procedure TForm1.Button1Click(Sender: TObject);
var
Http: TidHttp;
CM: TidCookieManager;
Data: TStringList;
StrPage, UserID, UserName: String;
i: integer;
begin
try
Http := TidHttp.Create(Self);
Data := TStringList.Create;
CM := TidCookieManager.Create(Http);
Http.AllowCookies := true;
Http.CookieManager := CM;
Http.HandleRedirects := true;
Http.Request.BasicAuthentication := true;
Http.Request.UserName := '';
Http.Request.Password := '';
StrPage := Http.get('http://,....../.../protected/index.do');
finally
Data.Free;
CM.Free;
Http.Free;
end;

if Pos('----', StrPage) <> 0 then
ShowMessage('Авторизация прошла успешно')
else
ShowMessage('Авторизация провалилась');

Memo1.Lines.Text := StrPage;
end;