Как запихнуть вместо TTray Icon Gauge?

#include <memory>
#include <DateUtils.hpp>
 
std::auto_ptr<TBitmap> Bitmap(new TBitmap);
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    Bitmap->SetSize(16,16);
 
    Bitmap->Canvas->Brush->Color= clBlack;
    Bitmap->Canvas->FillRect(TRect(0,0,16,16));
 
    int ss= SecondOf(Now());
    String Text= ss;
 
    int progress= ss*13./60.;
 
    Bitmap->Canvas->Brush->Color= clLime;
    Bitmap->Canvas->FillRect(TRect(1,1,progress+1,5));
 
    Bitmap->Canvas->Brush->Style= bsClear;
 
    Bitmap->Canvas->Font->Color= clRed;
    Bitmap->Canvas->Font->Size= 8;
 
    TRect R(1,4,15,15);
    Bitmap->Canvas->TextRect(R,Text,TTextFormat()<<tfCenter);
 
    ImageList1->AddMasked(Bitmap.get(),clWhite);
 
        // Для апдейта трея ( в ImageList1 изначально должна быть какая либо "стартовая" иконка )
    TrayIcon1->IconIndex= 1;
    ImageList1->Delete(0);
    TrayIcon1->IconIndex= 0;
 
    Image1->Canvas->StretchDraw(Image1->ClientRect,Bitmap.get());
}
//---------------------------------------------------------------------------