一个对象怎样Free掉自己?(20分)

type TMy=class(Tpanel)
public
timer:ttimer;
procedure timeontime(sender:tobject);
constructor create(aowner);override;
end;
////////////////////////////
constructor TMy.create(aowner)

begin
inherited create(aowner);
timer:=ttimer.create(self);
timer.inteval=5000;
timer.ontime:=timerontime;

end;
procedure TMy.timerontime(sender:tobject);
begin
//在这里写什么可以让timer被创建5秒以后free这个属于TMy的对象自己呢?

end;

Ttimer(sender).free;

TTimer(sender).Tag := TTimer(sender).Tag +1;
if TTimer(sender).Tag = 4 then
TTimer(sender).free;

多人接受答案了。