var
  IdHTTP: TIdHTTP;
  Params: TStrings;
  t:TStringStream;
begin
  idHTTP:= TidHTTp.create(self);
  idHTTP.HandleRedirects := True;
  Params := TStringList.Create;
  t:=TStringStream.Create('');
  try
    IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
    Params.Clear;
    Params.Add('name='+edtname.Text);
    Params.Add('nickname='+edtnickname.Text);
    Params.Add('tel='+edttel.Text);
    Params.Add('post='+edtpost.Text);
    Params.Add('mail='+edtmail.Text);
    Params.Add('refer='+edtrefer.Text);
    Params.Add('title='+edttitle.Text);
    Params.Add('content='+content.Lines.Text);
    Params.Add('kind=1');
    try
      IdHTTP.Request.Referer:='//http://www.xmhouse.com/liuyuan/mainlytj122.asp?kind=1';     
      IdHttp.Post('http://www.xmhouse.com/liuyuan/addsave.asp',Params, t);
    except
      showmessage('error');
      exit;
  end;
  finally
    IdHTTP.Free;
    Params.Free;
    t.Free;
  end;
end;