Method FormDestroy

source/main.cpp:216–277

---------------------------------------------------------------------------

}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormDestroy(TObject *Sender)
{
  // Save all
  *AppParams << this << (TStringGrid *)LogSG;
  AppParams->Values["GotoNewMess"] = aGotoNewLine->Checked;

  AppParams->Values["FontName"] = LogSG->Font->Name;
  AppParams->Values["FontSize"] = LogSG->Font->Size;
  AppParams->Values["HighlighProfile"] = HP->CurrentProfile;
  AppParams->Values["FileNumber"] = FileNumber;

  MessMatch.Save(FilterFile);

  NetTimer->Enabled = false;
  Timer->Enabled = false;

  TcpServerStop();
  TcpServerDestroy();

  UdpServerStop();
  UdpServerDestroy();

  rawout.Close();

  if( TalkingThread )
  {
    TalkingThread->Stop();
    TalkingThread->Terminate();
    TalkingThread->WaitFor();
    delete TalkingThread;
    TalkingThread = NULL;
  }

  if( ShowAlarmForm )
  {
    delete ShowAlarmForm;
    ShowAlarmForm = NULL;
  }

  Clear();
  delete MessList;
  MessList = NULL;

  delete ProcessRules;
  ProcessRules = NULL;

  delete HP;
  HP = NULL;

  delete fdb;
  fdb = NULL;

  delete LogSG_LivingColumns;

  delete AppParams;
  AppParams = NULL;

  TSendmailThread::Exit();