🚀 go-pugleaf

I am trying to add the ability to email error logs from the help screen of an application.  I have a simple test form with a TIdSMTP component and a TIdMessage component.  I can send an email but I can't get the attachment to be included.  I'm using the following test code in Borland C++ Builder 6, using Indy 9.0.50.

int TMainForm::TestFunction(void)
{
  AnsiString FileToAttach = "C:\\Link\\Logs\\Logs.zip";
  if (FileExists(FileToAttach))
  {
    Log->Lines->Add("Attaching file " + FileToAttach);
  }
  else
  {
    Log->Lines->Add("File <" + FileToAttach + "> does not exist.");
  }
  TDMPCursor MyCursor(crHourGlass);

  // MailMessage is a TIdMessage component on the main form.
  MailMessage->ContentType = "multipart/related; type=\"text/html\"";
  MailMessage->Body->Add("With attachment.");
  TIdAttachment* LogFile = new  TIdAttachment(MailMessage->MessageParts, FileToAttach);
  LogFile->FileName = FileToAttach;
  //LogFile->ContentType = GetMIMETypeFromFile(LogFile->FileName);
  LogFile->ContentType = "application/zip";

  try
  {
    // SMTPClient is a TIdSMTP component on the main form.
    SMTPClient->Connect();
    SMTPClient->Send(MailMessage);
  }
  __finally
  {
    SMTPClient->Disconnect();
  }

  Log->Lines->Add("TestFunction Completed: " + AnsiString(""));
  return 0;
}

What am I missing?

Royce