quote:


procedure TForm1.Button1Click(Sender: TObject);
var SL: TStringList;
begin
SL:=TStringList.Create;
SL.Add('to=1319571');
SL.Add('itype=0');
SL.Add('action=im_ajax_new');
SL.Add('text=Привет!');
{ФОРМИРОВАНИЕ ЗАПРОСА}
idHTTP1.Request.ContentType:='application/x-www-forum-urlencoded;charset=UTF-8';
idHTTP1.Request.Host:='86.ru';
idHTTP1.Request.AcceptEncoding:='gzip,deflate';
idHTTP1.Request.Pragma:='no-cache';
idHTTP1.Request.CacheControl:='no-cache';
idHTTP1.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
idHTTP1.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
idHTTP1.Request.Accept:='ru,en-us;q=0.7,en;q=0.3';
idHTTP1.Request.UserAgentL:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3';


idHTTP1.Post('http://86.ru/passport/im/ajax_new.php', SL);
ShowMessage(idHTTP1.ResponseText);
SL.Free;
end;