🚀 go-pugleaf

I'm running Borland Developer Studio 2006. I have a program that looks at 
error data from a hardware device. It is always running and checking for 
data.  Upon finding it, it sends an email with an attachment.  First time 
around, it sends the attachment fine.  Any subsequent cycles, it gets an 
EAccess Violation when preparing the attachment. Here is a piece of my code.

-------------------------------------------------------
TIdAttachment *Attachment = new 
TIdAttachment(MainForm->MailMessage->MessageParts, "Media.pdf");

MailMessage->Recipients->Add()->Address = joe@mail.com;

MailMessage->Subject = "My media report";
MailMessage->From->Name = "Johns Fish House";
MailMessage->From->Address = "admin@fishhouse.com";
MailMessage->Body->Clear();
MailMessage->Body->Add("This is an automatically generated email.");

SMTP->Host = "mail.fishhouse.com";
SMTP->Username = "mike";

try
{
  SMTP->Connect();
}
catch (Exception& E)
{
  LogErrorMessage(E.Message.c_str());
  remove("Media.pdf");
  free(Attachment);
  LogErrorMessage("Connect email to specialist and CHE mail failed.");
  return;
}

try
{
  SMTP->Send(MailMessage);
}
catch (Exception& E)
{
  LogErrorMessage(E.Message.c_str());
  remove("Media.pdf");
  free(Attachment);
  LogErrorMessage("Send email to specialist and CHE mail failed.");
  return;
}
-----------------------------------------------------------------

Here is the status messages:

Resolving Hostname mail.fishhouse.com.
Connecting to 45.222.47.123.
Connected.
EAccess Violation.
Disconnecting.
Disconnected.

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

Thanks,

Terry