关于程序中代码重复的问题，请各位大哥指教

Question

procedure Tfrm_main.JfMenuItem16Click(Sender: TObject);
var   I:integer;
begin
Frm_setup.Show;
    for I := 0 to Frm_setup.fcTreeView1.Items.Count - 1 do
    if Frm_setup.fcTreeView1.Items.Item[I].Text = '职工类型设置' then
    begin
      Frm_setup.fcTreeView1.Items.Item[I].Selected:=True;//选定
      Frm_setup.fcTreeView1.SetFocus;//聚焦
    end;
end;下一段是
procedure Tfrm_main.JfMenuItem16Click(Sender: TObject);
var   I:integer;
begin
Frm_setup.Show;
    for I := 0 to Frm_setup.fcTreeView1.Items.Count - 1 do
    if Frm_setup.fcTreeView1.Items.Item[I].Text = '文化程度设置'（****就此处和上一段不一样） then
    begin
      Frm_setup.fcTreeView1.Items.Item[I].Selected:=True;//选定
      Frm_setup.fcTreeView1.SetFocus;//聚焦
    end;
end;
怎么自定义一个过程调用它呢？请高手指教！！！！！！

Answer 1

procedure ItemOnClick(String:TempText);
var   I:integer;
begin
    Frm_setup.Show;
    for I := 0 to Frm_setup.fcTreeView1.Items.Count - 1 do
    if Frm_setup.fcTreeView1.Items.Item[I].Text = TempText then
    begin
      Frm_setup.fcTreeView1.Items.Item[I].Selected:=True;//选定
      Frm_setup.fcTreeView1.SetFocus;//聚焦
    end;
end;调用的时候：
ItemOnClick('职工类型设置');

Answer 2

提示
[Error] main.pas(92): Identifier expected but 'STRING' found

Answer 3

不好意思，这两天在用java，写反了：）
procedure ItemOnClick(TempText:String);

Answer 4

[Error] main.pas(92): Identifier expected but 'PROCEDURE' found
朋友，请问是不是在什么地方要定义
可是我在 private后加procedure ItemOnClick(TempText:String);
也不对，麻烦你说清楚一些

Answer 5

在Private后加 procedure ItemOnClick(TempText:String);
然后在下面代码区写
procedure Form1.ItemOnClick(TempText:String);
var   I:integer;
begin
    Frm_setup.Show;
    for I := 0 to Frm_setup.fcTreeView1.Items.Count - 1 do
    if Frm_setup.fcTreeView1.Items.Item[I].Text = TempText then
    begin
      Frm_setup.fcTreeView1.Items.Item[I].Selected:=True;//选定
      Frm_setup.fcTreeView1.SetFocus;//聚焦
    end;
end;Form1是你窗体的名字