[scroyler]

Подскажите, что не так делаю?
Пост не отправляется, вроде все правильно,помогите!

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
post:TStringList;
Answer:string;
begin
idhttp1.CookieManager:=idcookiemanager1;
post:=TstringList.Create;
post.Add('user='+edit1.Text);
post.Add('password='+edit2.text);
post.Add('rem=1');
post.Add('a=2');
post.Add('ajax=1');
post.Add('rnd=159');
post.Add('_tp_=xml');
answer:=Utf8ToAnsi(idhttp1.Post('http://remain.do.am/index/sub/',post));
if Pos('myWinLoadSD',Answer)> 0 then
begin
ShowMessage ('ok');
end
else
begin
ShowMessage ('no');
end
end;
procedure TForm1.Button2Click(Sender: TObject);
var
post:TStringList;
Answer,ssid,str:string;  n:integer;
begin

//pars
 str:=idhttp1.Get('http://postingroom.ru/forum/42-0-0-1-1');
n:=pos('"ssid" value="',str)+length('"ssid" value="');
ssid:= copy(str,n,posex('" />',str,n)-n);
//pars_     <input type="hidden" name="ssid" value="032440317236156376704">
idhttp1.CookieManager:=idcookiemanager1;
post:=TstringList.Create;
post.Add('jkd498=1');
post.Add('jkd428=1');
post.Add('name=1name');
post.Add('description=text');
post.Add('message=text');
post.Add('ahtml=on');
post.Add('frmt=on');

post.Add('smiles_on=1');
post.Add('signature_on=1');
post.Add('file1=');
post.Add('ssid='+ssid);
post.Add('fid=42');
post.Add('tid=0');
post.Add('p=0');
post.Add('a=4');
post.Add('numi=1');

answer:=Utf8ToAnsi(idhttp1.Post('http://postingroom.ru/forum/42-0-0-1-1',post));
if Pos('',Answer)> 0 then
begin
ShowMessage ('ok');
end
else
begin
ShowMessage ('no');
end
end;

end.