在一个过程中如何引用另一个过程？

Question

两个过程如下：procedure TForm1.FormCreate(Sender: TObject);
Var Data_Path:string;
begin
  StatUsBar1.Panels[1].Text := TimeToStr(Time());
  try
    ADOConnection1.Connected := false;
    Data_Path:=ExtractFilePath (ParamStr(0))+'Text_Data.mdb';
    ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=;Data Source='+Data_Path+';Persist Security Info=False';
    ADOConnection1.Connected := true;
  except
    on e:exception do
    ShowMessage(''+e.Message+'');
  End;
end;
procedure TForm1.Refresh_TreeView(Sender: Tobject);
Var
   TwoLevel_Data:string;
begin
  OneNode:=Treeview1.Items.Add(Nil,'文档管理');
  AdoQuery1.Close;
  AdoQuery1.SQL.Clear;
  AdoQuery1.SQL.Add('Select Text_Title From Text_Data Order By id desc');
  try
    AdoQuery1.Open;
  except
    ShowMessage('发生未知错误，请返回');
    Exit;
  End;
  While not Adoquery1.Eof Do
    Begin
      TwoLevel_Data := Adoquery1.Fieldbyname('Text_Title').Value;
      TwoNode := TreeView1.Items.AddChild(OneNode,TwoLevel_Data);
      AdoQuery1.Next ;
    End;
end;我想在TForm1.FormCreate中引用Refresh_TreeView，应该怎么做呢？两个过程中一个UNIT中