//---------------------------------------------------------------------------
#ifndef CBLabelHH
#define CBLabelHH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Controls.hpp>
#include <Classes.hpp>
#include <Forms.hpp>
#include <StdCtrls.hpp>
//---------------------------------------------------------------------------
class PACKAGE TCBLabel : public TLabel
{
private:
                AnsiString AText;
                void __fastcall SetAText(String tekst);

                TTimer *Timer;
                int AInterval;
                void __fastcall SetAInterval(int a);
                void __fastcall TimerTimer(TObject *Sender);
                int t;

protected:

public:
        __fastcall TCBLabel(TComponent* Owner);
        __fastcall ~TCBLabel(void);

        void __fastcall Execute(void);
__published:
                __property AnsiString Text = {read = AText, write = SetAText};
                __property int Interval = {read = AInterval, write = SetAInterval};
};
//---------------------------------------------------------------------------
#endif