Сделать анимированную иконку в трее?

String file1="16x16.ico";
TFileStream  *IconStream = new TFileStream(file1,fmOpenRead);
TrayIcon1->Visible=true;

TrayIcon1->Icon->LoadFromStream(IconStream);

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    char bufic[2000];
    TMemoryStream *ms = new TMemoryStream;
    ms->LoadFromFile(".\\Icon1.ico");
    int dli = ms->Size;
    ms->ReadBuffer( bufic,dli);   ms->Position = 0;
    for (int i=1086;i<1086+128;i++) bufic[i]=0xE7;
    ms->WriteBuffer( bufic,dli);  ms->Position = 0;
    Application->Icon->LoadFromStream(ms);
    delete ms; 
}

#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
byte Dat[16][16];
TMemoryStream *MemoryStream = new TMemoryStream  ;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
String file1="16x16.ico";
MemoryStream->LoadFromFile(file1);
TrayIcon1->Icon->LoadFromStream(MemoryStream);
TrayIcon1->Visible=true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
MemoryStream->Position = 1086;
for (int i = 0; i < 8; i++)
    for (int j = 0; j < 16; j++)
        Dat[i][j] = StrToInt(Edit1->Text);
MemoryStream->WriteBuffer(Dat, 128);
//MemoryStream->SaveToFile("new.ico");
MemoryStream->Position = 0;
TrayIcon1->Icon->LoadFromStream(MemoryStream);
}
//---------------------------------------------------------------------------