unit Unit1;
interface
uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, QuickRpt, QRCtrls, ExtCtrls,IdHTTP;
type
   TForm1 = class(TForm)
     lbl1: TLabel;
     lbl2: TLabel;
     edt1: TEdit;
     edt2: TEdit;
     mmo1: TMemo;
     btn1: TButton;
     procedure edt1Change(Sender: TObject);
     procedure btn1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;
var
   Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.edt1Change(Sender: TObject);
var
   s:string[14];
   slength:Byte;
begin
   slength:=edt1.GetTextLen;
   Str(slength,s);
   edt2.Text:=s;
end;
procedure TForm1.btn1Click(Sender: TObject);
var
   HTTP: TIdHTTP;
   HTML: TStringStream;
begin
   HTTP := TIdHTTP.Create(Self);
   HTML := TStringStream.Create('');
   HTTP.Get(' http://tieba.baidu.com/f?ct=352321536&tn=baiduPostSearch&rn=10&pn=0&lm=65541&kw=&rs2=2&myselectvalue=2&word=' + edt1.text
,HTML);
   mmo1.Text := HTML.DataString;
   HTML.Free;
   HTTP.Free;
end;
end.