[InfectedM]

ужно написать программу каторая будет авторизовываться на форуме
Но я незнаю как работать с куками...
Вот что я написал,ноничего не работает...В ответ получаю страницу Ввода логина и пароля..
Помогите плз

Код:

var
text:string;
CookMan: TidCookieManager;
begin
CookMan:=TidCookieManager.Create(IdHTTP1);
 IdHTTP1.CookieManager := CookMan;
  IdHTTP1.AllowCookies := True;
 otpr:= TStringList.Create;
  otpr.Add('referer=');
  otpr.Add('UserName=тут логин');
  otpr.Add('PassWord=тут пароль');
  otpr.Add('CookieDate=1');
  otpr.Add('submit=%C2%EE%E9%F2%E');
 memo1.Text:=IdHTTP1.Post('http://forum.sources.ru/index.php?&act=Login&CODE=00', otpr);
 end;

ну или вот так...но всеравно не работает...

Код:

var
text,text1:string;
all:integer;
CookMan: TidCookieManager;
begin
  CookMan:=TidCookieManager.Create(IdHTTP1);
  IdHTTP1.CookieManager := CookMan;
  IdHTTP1.AllowCookies := True;
  memo1.Text:= IdHTTP1.Get('http://forum.sources.ru/');
  text:=copy(memo1.text,pos ('Login&',memo1.text)-41,32);  // поиск  S=....
  memo1.Text:=  IdHTTP1.Get('http://forum.sources.ru/index.php?s='+text+'&act=Login&CODE=00');
  text:=copy(memo1.text,pos ('Login&',memo1.text)-41,32);  // поиск  S=....
   otpr:= TStringList.Create;
   otpr.Add('referer=');
 otpr.Add('UserName=тут логин');
   otpr.Add('PassWord=тут пароль');
   otpr.Add('CookieDate=1');
   otpr.Add('submit=%C2%EE%E9%F2%E');
memo1.Text:=IdHTTP1.Post('http://forum.sources.ru/index.php?s='+text+'&act=Login&CODE=00', otpr);

Или я просто не то и не туда отправляю?