procedure TForm5.btn2Click(Sender: TObject);
var params,responseres:tstringlist;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
params.Add('action=authaddans');
params.Add('ch=046d65b4c60aa1284e7e83ef3fc93');
params.Add('qid=36881813');
params.Add('f80325b38=1');
params.Add('Body=Это Я =)');
params.Add('source=');
responseres.Text:=http1.Post('http://otvet.mail.ru/question/36881696/',params);

end;