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

[Jer]

Помогите пож с авторизацией на сайте и последующем переходе по ссылке..
От программы требуетсяпеченьки должны быть включены);
1. Залогиниться на сайте(с вводом капчи);
2. Перейти по ссылке;
Нарыл кое что...программа работает на IdHTTP..я понимаю что надо подключить модуль Куков, но не знаю как..
вот не доделанная программа.
[SPOILER]

 procedure TMyThread.Execute;
var
Source: String;
Params: TStringList;
begin
  Params := TStringList.Create;
  Params.Add('referer=');
  Params.Add('t=');
  Params.Add('f=');
  Params.Add('st=');
  Params.Add('UserName='+name);
  Params.Add('PassWord='+Pass);
  params.Add('Capcha='+Keystring);
  Params.Add('CookieDate=1');
  try
    Form1.IdHTTP1.HandleRedirects:= True;
    Source:=Form1.IdHTTP1.Post(URL,Params);
  finally
    Params.Free;
  end;
  If Pos('вы ввели верные данные?', Source) = 0 Then Form1.Label1.Caption:='Good!'
  Else Form1.Label1.Caption:='Bad :(';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  url, name, pass, keystring: string;
  MyThread : TMyThread;
begin
Label1.Caption:='';
Name := Edit1.Text;
Pass := Edit2.Text;
Keystring := Edit3.Text;
URL := 'http://mistari.ru/cabinet.php';
{Создаём поток с параметрами URL, Login, Password, Keystring.}
MyThread := TMyThread.Create(True);
MyThread.URL := URL;
MyThread.Name := Name;
MyThread.Pass := Pass;
MyThread.Keystring := Keystring;
MyThread.Resume;
end;

end;
end.

[/SPOILER]

Не ругайтесь, я только начинаю познавать Delphi
ЗЫ. вот эти темы видел: Полу авт голосование
Объщие принципы авторизации на удаленных сайтах

[Alter]

Бросьте на форму кукименеджер(вкладка: Indy Misc){ IdCookieManager1: TIdCookieManager; }

 IdHTTP1.AllowCookies := True;
 IdHTTP1.CookieManager := IdCookieManager1;

[Jer]

Спс...попробую..