如何取得登陆后返回数据？ ( 积分: 50 )

procedure TForm1.Button1Click(Sender: TObject);
const
URL1='http://demo.sysfx.com:8215/xml/logon?lang=zh%5FCN&schema%24=edforex16';
var
P:TStringList; //登陆成功，但不能取得验证码；
begin //返回 http1.1 200
P:=TStringList.Create;
P.Clear;
memo1.Lines.Clear;
try
P.Add('username=mirik');
P.Add('password=8177');
Idhttp1.Request.UserAgent:='FOREST 2.1.38';
IdHTTP1.Post(URL1,P);
Memo1.Lines.Add('Login ok '+idhttp1.Response.ResponseText);
Except
Memo1.Lines.Add('Login error '+idhttp1.Response.ResponseText);
End;
end;

用SNIFFER工具或者WEBBROWSER可以看到登陆后返回这样的一个文本：
"<?xml version="1.0" encoding="iso-8859-1" ?><logon session="7edcho7H"/>"
怎么样取得 Logon session 后面的东东呢？memo里面只显示了 'Login ok HTTP1.1 200 OK'。

procedure TForm1.Button1Click(Sender: TObject);
const
URL1='http://demo.sysfx.com:8215/xml/logon?lang=zh%5FCN&schema%24=edforex16';
var
P:TStringList; //登陆成功，但不能取得验证码；
begin //返回 http1.1 200
P:=TStringList.Create;
P.Clear;
memo1.Lines.Clear;
try
P.Add('username=mirik');
P.Add('password=8177');
Idhttp1.Request.UserAgent:='FOREST 2.1.38';
IdHTTP1.Post(URL1,P);
Memo1.Lines.Add('Login ok '+idhttp1.Response.ResponseText);
Except
Memo1.Lines.Add('Login error '+idhttp1.Response.ResponseText);
End;
end;

用SNIFFER工具或者WEBBROWSER可以看到登陆后返回这样的一个文本：
"<?xml version="1.0" encoding="iso-8859-1" ?><logon session="7edcho7H"/>"
怎么样取得 Logon session 后面的东东呢？memo里面只显示了 'Login ok HTTP1.1 200 OK'。

tcp控件

procedure TForm1.Button1Click(Sender: TObject);
const
URL1='http://demo.sysfx.com:8215/xml/logon?lang=zh%5FCN&schema%24=edforex16';
var
P:TStringList; //登陆成功，但不能取得验证码；
begin //返回 http1.1 200
P:=TStringList.Create;
P.Clear;
memo1.Lines.Clear;
try
P.Add('username=mirik');
P.Add('password=8177');
Idhttp1.Request.UserAgent:='FOREST 2.1.38';
IdHTTP1.Post(URL1,P);
Memo1.Lines.Add('Login ok '+idhttp1.Response.ResponseText);
Except
Memo1.Lines.Add('Login error '+idhttp1.Response.ResponseText);
End;
Memo2.Lines.Add(Response.DataString); //注意这行..是接收返回信息的
end;

Response.DataString 是哪里来的？