动态创建一个timer，指定它的ontimer，在执行完ontimer后释放自己。请给代码

Question

动态创建一个timer，指定它的ontimer，在执行完ontimer后释放自己。
请给代码，请详细。

Answer 1

在窗口的private中定义：
  TempTimer : TTimer;
procedure MyOnTimer(Sender: TObject);procedure Form1.MyOnTimer(Sender: TObject);
Begin
//写具体操作语句
End;在窗口的ONCREATE事件中创建
Begin
  TempTimer := TTimer.Create;
  TempTimer.OnTimer := MyOnTimer;
End;
在窗口的ONDESTROY事件中释放
Var
  TempTimer : TTimer;
Begin
  TempTimer.Free;
End;

Answer 2

type TForm1 = class(TForm)
      ....
       public
         t:TTimer;
         procedure TOntimer(Sender:TObject);
      end;
......procedure TForm1.Create(Sender:TObject);
begin
  T:=TTimer.Create(self);
  T.Interval := 1000;
  T.Enabled:=false;
  T.OnTimer := TOntimer;
  T.Enabled:=true;
end;procedure TForm1.TOnTimer(Sender:TObject);
begin
  ......
  T.Free;
end;

Answer 3

zou5655(周围) 比我跑得快哈！