求助：如何不用鼠标拖放的方式，直接在代码里使用一个TTimer组件

Question

我的一个Unit里要用到TTimer组件，但是这个Unit没有Form，所以不能从上面拖一个TTimer组件下来，所以我只能直接在代码里定义一个
     timer: TTimer，
然后：
     timer := TTimer.Create(NIL);
     timer.Enabled := true;
     timer.Interval := 100;
但是接下来该怎么添加OnTimer事件处理代码就不知道了，所以请各位高手多多赐教！

Answer 1

timer.OnTimer := TimerPro  就行了吧

Answer 2

定义一个过程 如 procedure DoIt(Sender: TObject);
然后  timer.OnTimer:=DoIt;

Answer 3

TimePro 的原形 procedure TimePro(Sender : TObject);

Answer 4

procedure TForm1.FormCreate(Sender: TObject);
var
  MenuItem: TMenuItem;
begin
    MenuItem := TMenuItem.Create(PopupMenu1);
    MenuItem.Caption := '菜单项目1';
    MenuItem.OnClick := GetName;
    PopupMenu1.Items.Add(MenuItem);
    Form1.PopupMenu:=PopupMenu1;
end;procedure TForm1.GetName(Sender:TObject);
begin
  showmessage((Sender as TMenuItem).Caption);
end;