Private
  timer:Ttimer;
procedure MyTimerDo(Sender:Tobject);
procedure create ;
  timer:=TtIMER.Create;
  Timer.Enabled:=True;
  timer.Ontimer:=MyTimerDo;
end;

procedure MyTimerDo(Sender:Tob……

05-15 10:51