TWeb-Browser & Autologin???

[alex198555]

Вот пытался сделать автологин всё равно не получилось. Появляется ошибка связанная с [idHTTP]. Помогите, кто-нибудь исправить эту ошибку?! Ошибка в аттаче!

Вот мой код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    IdHTTP1: TIdHTTP;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var params, responseres:tstringlist;
begin
  params:=TStringList.Create;
  responseres:=TStringList.Create;
  try params.Add('Email=EMAIL ADDRESS');
      params.Add('Password=PASSWORD');
      responseres.Text:=idhttp1.Post('MY WEB-SITE HERE...',params);
      if Pos('logout',responseres.Text)>0 then
        ShowMessage('You are logged in');
   finally
   params.Free;
   responseres.Free;
begin
WebBrowser1.Navigate('MY WEB-SITE HERE...l');
end;
end;
end;
end.

[alex198555]

Ну что если есть у кого-либо идеи?