Как сделать чтобы программа сворачивалась в трей?

TRegistry *reg = new TRegistry();
reg->RootKey=HKEY_CURRENT_USER;
reg->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run",true);
reg->WriteString("Client",Application->ExeName);
reg->CloseKey();
delete reg;

Application->ShowMainForm = false;

void RegisterAutorun(bool need) {
  TRegistry *reg = new TRegistry(KEY_ALL_ACCESS);
  if (reg) {
    reg->RootKey = HKEY_CURRENT_USER;
    reg->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", true);
        
    if (need) {
      reg->WriteString("MS",Application->ExeName);
    else {  
      reg->DeleteValue("MS");
    }
        
    reg->CloseKey();
  }
  delete reg;
  reg = NULL;
}

Hide();
ShowWindow(Handle,SW_HIDE);
SendMessage(Handle,SW_HIDE,0,0);
Perform(SW_HIDE,0,0);

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "mainer.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "trayicon"
#pragma resource "*.dfm"
TForm1 *Form1;
int HF =0 ;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{ 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::TrayIcon1Click(TObject *Sender)
{
ShowWindow(Application->Handle, SW_HIDE);
HF = !HF;
}