Проблема с авторизацией

В общем, при попытке авторизации выбивает ошибку "HTTP/1.1 302 Found"

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, ExtCtrls, StdCtrls, GIFImage, IdCookieManager;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    IdHTTP1: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  SL.Add('gameserver=server');
  SL.Add('playername=' + Edit2.Text);
  SL.Add('password=' + Edit3.Text);
  SL.Add('code=');
  SL.Add('secpic=' + Edit4.Text);
  IdHTTP1.Post('http://diamondrp.ru/?page=login&checkdata=do', SL);
  Memo1.Text := IdHTTP1.Get('http://diamondrp.ru/?page=ucp');
  SL.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  gif: TGIFImage;
  ms: TMemoryStream;
begin
  ms := TMemoryStream.Create;
  gif := TGIFImage.Create;
  IdHTTP1.Get('http://diamondrp.ru/secpic.php', ms);
  ms.Position := 0;
  gif.LoadFromStream(ms);
  Image1.Picture.Assign(gif);
  ms.Free;
  gif.Free;
end;

end.

В чем ошибка?

 

Не ошибка, а исключение. Там авторизация через httpS.

 

Как исправить, чтобы ее не было?

 

Работать через https, а не http

 

Все равно тоже самое

 

Code:

   try
      IdHTTP1.Get('ТУТССЫЛКА');
    except
      ShowMessage(HTTP.Response.Location);
    end;

Что пишет?

 

HTTP/1.1 302 Found

 

Не там вставил код. Должна быть ссылка.

 

http://stackoverflow.com/questions/4549809/indy-idhttp-how-to-handle-page-redirects