function xmlhttp(cook: string):String;
var
xmlHttp:Olevariant;
responseText:Widestring;
begin
with Form1 do
begin
if (Length(url.Text)>0) then
begin
xmlHttp := CreateOleObject('Msxml2.XMLHTTP');
xmlHttp.open('Post', url.text, false);
xmlHttp.setRequestHeader('Content-Transfer-Encoding', 'binary');
xmlHttp.setRequestHeader('X-Requested-With', 'XMLHttpRequest');
xmlHttp.setRequestHeader('Cookie', cook);
xmlHttp.send('to='+id.text+'&itype=0&ititle=&iurl= &action=im_ajax_new&text='+text.lines.text+'&file= ');
result:=xmlHttp.responseText;
showmessage(result);
end;
end;
end;