كيف يتم جلب النص من الانترنت الى تري فيو

[Sonic]

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

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

كود :

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

[Agmcz]

كود :

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;