有Treeview1,小弟我想根据string: '1'来找到reeview1中的＇仓房１＇结点，并把当前选中结点设为该结点，该如何写代码

有Treeview1,我想根据string: '1'来找到reeview1中的＇仓房１＇结点，并把当前选中结点设为该结点，该怎么写代码
有Treeview1,我想根据string:   '1 '来找到reeview1中的＇仓房１＇结点，并把当前选中结点设为该结点，该怎么写代码

------解决方案--------------------
procedure TForm1.Btn_CreateTreeClick(Sender: TObject);
var
ID : integer;
RootNode, Node : TTreeNode;
begin
TreeView1.Items.Clear;
RootNode := TreeView1.Items.AddFirst(nil, '所有仓房 ');
for ID := 1 to 5 do
begin
Node := TreeView1.Items.AddChild(RootNode, '仓房 '+IntToStr(ID));
Node.Data := Ptr(ID);
end;
end;

procedure TForm1.Btn_TestClick(Sender: TObject);
var
S : string;
ID : integer;
begin
S := '2 ';
for ID := 0 to TreeView1.Items.Count-1 do
if S = IntToStr(integer(TreeView1.Items[ID].Data)) then
begin
TreeView1.Select([TreeView1.Items[ID]]);
TreeView1.SetFocus;
end;
end;