может создать класс от TLabel и интегрировать в него таймер....

Примерно так:

type
TMyLabel = class(TLabel)
private
FTimer: TTimer;
procedure TimerEvent(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
end;

constructor TMyLabel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FTimer := TTimer.Create(Self);
FTimer.Interval := 100; { 100 ms }
FTimer.OnTimer := TimerEvent;
end;

procedure TMyLabel.TimerEvent(Sender: TObject);
begin
// Здесь обработчик таймера
end;

см выше :)

)))))