TIdNotify, создание и удаление объекта этого класса

#include <IdSync.hpp>
//---------------------------------------------------------------------------
class TMyNotify: public TIdNotify
{
  public:
    int Num;
  protected:
    virtual void __fastcall DoNotify()
     {
       Form1->Memo1->Lines->Add(Num);
     }
};
//---------------------------------------------------------------------------
int num=0;
//---------------------------------------------------------------------------
void __fastcall TForm1::IdThreadComponent1Run(TIdThreadComponent *Sender)
{
  Sleep(100);
 
  TMyNotify* MyNotify = new TMyNotify;
  MyNotify->Num= num;
  MyNotify->Notify();
 
  // delete Notify; // <- тут ошибка, а без этого вероятно утечка
 
  num++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   IdThreadComponent1->Active= !IdThreadComponent1->Active;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  if(IdThreadComponent1->Active)
        IdThreadComponent1->TerminateAndWaitFor();
}
//---------------------------------------------------------------------------

class TMyNotify: public TIdNotify
{
protected:
    virtual void __fastcall DoNotify()
    {
        Form1->Memo2->Lines->Add(Num);
    }
public:
    TMyNotify(int ANum) : Num(ANum)
    {
    }
 
private:
    int Num;
};
 
void __fastcall TForm1::IdThreadComponent1Run(TIdThreadComponent *Sender)
{
  Sleep(100);
 
  (new TMyNotify(num))->Notify(); // Уничтожается самостоятельно
  num++;
}

Form1->Memo1->Text= Num;