Где утечка памяти?

void __fastcall TForm1::FormCreate(TObject *Sender)
{
hh=HeapCreate(0,0x01000,0);
if(hh==NULL){MessageBox(0,"!","!",MB_OK);}
}
..........................................................................
void __fastcall TForm1::Button3Click(TObject *Sender)
{
char *buf=(char*)HeapAlloc(hh,0,1024*1024);
if(buf==NULL){MessageBox(0,"!","!",MB_OK);}
strcpy(buf,"sdjbksadbvkjlbsdkvljbsdkjbvkjsdabvkjasdbkvjbasdkjvbsakjbvkjslb");
MessageBox(Form1->Handle,buf,"!",MB_OK);
HeapFree(hh,0,buf);
}