delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله وبركاتة

اخواني هذا الكود الجلب نص من الانترنت الى تري فيو

كود :
var i:SmallInt;
list:TStringList;
 tn1: TTreeNode;
begin
list:=TStringList.Create;
list.DelimitedText:=GetUrl('web');
list.Delimiter:=#13;
with tv1.Items do
  begin
    Clear;
    tn1 := Add(nil, 'الاسماء');
    for I := 0 to list.Count-1 do
    AddChild(tn1,list[i]);
  end;

يظهر هكذا

كود :
http://up.arabseyes.com/uploads2013/15_06_15143437526233281.png

كيف التعديل عليه حتى يصبح هكذا

كود :
http://up.arabseyes.com/uploads2013/15_06_15143437526239252.png

كود :
var i:SmallInt;
list:TStringList;
 tn1: TTreeNode;
begin
list:=TStringList.Create;
list.DelimitedText:=GetUrl('web');
list.Delimiter:=#13;
with tv1.Items do
  begin
    Clear;
    for I := 0 to list.Count-1 do
      AddChild(nil, list[i]);
  end;

Sonic

Agmcz