关于TreeView的问题。(100分)

在TreeView1中有4个父结点：北京、上海、天津、深圳。
有4个TSTRINGS：TSTRINGS（B）、TSTRINGS（S）、TSTRINGS（T）、TSTRINGS（Z）。
程序启动时，将TSTRINGS（B）中的内容加入到父结点”北京“，TSTRINGS（S）中的内容
加入到父结点”上海“，TSTRINGS（T）中的内容加入到父结点”天津“，、TSTRINGS（Z）
中的内容加入到父结点”深圳“。
请问该怎么实现？

B，S，T，Z为：TSTRINGSLIST

分数拿来，delphi6测试通过
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
TreeView1: TTreeView;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
MyTreeNode1,MyTreeNode2: TTreeNode;
bstring,cstring:tstringlist;
I,icount:integer;
begin
TreeView1.Items.clear;
MyTreeNode1:=TreeView1.Items.add(nil,'北京');
MyTreeNode2:=TreeView1.Items.add(nil,'上海');
bstring:=tstringlist.Create;
cstring:=tstringlist.Create;
for I:=0 to 5 do
begin
bstring.add(inttostr(i)); //给bstring赋值 ，
end;
for I:=10 to 20 do
begin
cstring.add(inttostr(i)); //给bstring赋值 ，
end;
for icount:=0 to bstring.Count-1 do
begin
TreeView1.Items.AddChild(MyTreeNode1,bstring.Strings[icount]);
end;

for icount:=0 to cstring.Count-1 do
begin
TreeView1.Items.AddChild(MyTreeNode2,cstring.Strings[icount]);
end;
end;
end.

谢谢

给分把，谢谢了

不要这两行：
MyTreeNode1:=TreeView1.Items.add(nil,'北京');
MyTreeNode2:=TreeView1.Items.add(nil,'上海');
那么这一行该怎么写：
TreeView1.Items.AddChild(MyTreeNode1,bstring.Strings[icount]);

老大，多读读书，多看看以前大富翁的帖子
自己也动动手，不然怎么进步

呵呵，多谢。
问题解决了。但又有了新问题，我试了很多方法都不行，资料也找不到：
在父结点“北京”下有一个子结点“地图”，要把TSTRINGS（B）中的内容加入
到父结点”地图“，该怎么写啊？

呵呵，解决了。
但有个问题我一直还没解决：就是选中一个子结点，怎么得到它的父结点的名称。