[scroyler]

Код:

 function FindID(strB,strE,str:string):string;
var
  b,e:integer;
begin
  b:=pos(strb,str)+Length(strb);
  e:=pos(strE,str);
  if (b=0)or(e=0) then
    Result:=''
  else
    Result:=copy(str,b,e-b);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  Data:TStringList;
  Request:String;
  id1,id2:string;
begin
  Data:=TStringList.Create;
  Request:=idHTTP1.Get('http://sprashivai.ru/questions');
  id1:=FindID('<button id="askform-button" class="button-yellow-small" style="width: 134px;" onclick="ask(''questions'', ''',''');">'+AnsiToUtf8('Спросить')+'</button>',Request);
  id2:=FindID('<div id="textarea-ios-fix"></div><input type="hidden" name="asking_hash" value="','" id="asking_hash" />',Request);
   Data.Add(id1+'='+id2);
   data.Add('username'+'='+'konstantin_delphi');
   data.Add('question'+'='+'texxt');
   data.Add('anonimous'+'='+'undefined') ;
   data.Add('capctha'+'='+'')  ;
   idhttp1.Post('http://sprashivai.ru/questions/ask',Data);
end;
end.

Что не так? Кто подскажет?

[scroyler]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Data:TStringList;
  Request:String;
  id1,id2,str:string;
  n:integer;
begin
  Data:=TStringList.Create;

str:=idhttp1.Get('http://postingroom.ru/forum/42-0-0-1-1');
n:=pos('"ssid" value="',str)+length('"ssid" value="');
id1:= copy(str,n,posex('" />',str,n)-n);

n:=pos('<button id="askform-button" class="button-yellow-small" style="width: 134px;" onclick="Responses.ask('+'konstantin_delphi'+',',str)+length('<button id="askform-button" class="button-yellow-small" style="width: 134px;" onclick="Responses.ask('+'konstantin_delphi'+',');
id1:= copy(str,n,posex(''+''');">Спросить</button>',str,n)-n);

n:=pos('<div id="textarea-ios-fix"></div><input type="hidden" name="asking_hash" value="',str)+length('<div id="textarea-ios-fix"></div><input type="hidden" name="asking_hash" value="');
id2:= copy(str,n,posex('" id="asking_hash" />',str,n)-n);

   data.Add('username=konstantin_delphi');
   data.Add('question=texxt');
   Data.Add(id1+'='+id2);
   data.Add('anonimous'+'='+'undefined') ;
   data.Add('capctha'+'='+'')  ;
   idhttp1.Post('http://sprashivai.ru/questions/ask',Data);
end;
end.

делаю так,все равно не работает
Подскажите пож.,мне срочно надо!