🚀 go-pugleaf

Hi,

When I use the SMTP component for sending email, the mail is send out, but 
when I close the form
I get an access violation at a given address, during the read of that 
address.
Herewith the code which I use
If someone can give me a hint of what the problem might be

private: // User declarations
    String maillist;

void __fastcall TF_Deelnemers::Email1Click(TObject *Sender)
{
    extern int RecId_club;
    extern String WORKDIR,PROGDIR;
    char buf[200];
    int taal;
    String temp,tornooi,tornooinaam,mailsettings;
    maillist="";

    maillist=DM->Q_CLUBS->FieldByName("email")->AsString;
    TIdEMailAddressItem *MAILLIST = IdMessage1->Sender;
    TIdEMailAddressList *TOLIST = new  TIdEMailAddressList(this);
    TIdEMailAddressList *BCCLIST = new  TIdEMailAddressList(this);
    ...
    mailsettings=String(buf);
    MAILLIST->Name=mailsettings;
    ...
    mailsettings=String(buf);
    MAILLIST->Address=mailsettings;
    TOLIST->EMailAddresses=maillist;
    IdMessage1->Recipients=TOLIST;
    IdMessage1->From=MAILLIST;
    IdMessage1->Sender=MAILLIST;
    maillist="francois.van.wouwe@skynet.be";
    BCCLIST->EMailAddresses=maillist;
    IdMessage1->BccList=BCCLIST;
    ...
            IdMessage1->Subject="Confirmation of inscription "+tornooinaam;
    IdMessage1->ContentType="text/plain";
    IdMessage1->Body->Clear();
    IdMessage1->Body->Add("Club = 
"+DM->Q_CLUBS->FieldByName("nr")->AsString+" 
"+DM->Q_CLUBS->FieldByName("naam")->AsString+"\n");
    ....
            IdMessage1->Body->Add("\nWith sporty greetings\n");
    ...
    mailsettings=String(buf);
    IdMessage1->Body->Add(mailsettings);
    GetPrivateProfileString("Email","SMTPHost","",buf,sizeof(buf),tornooi.c_str());
    mailsettings=String(buf);
    IdSMTP1->Host=mailsettings;
    GetPrivateProfileString("Email","Username","",buf,sizeof(buf),tornooi.c_str());
    mailsettings=String(buf);
    IdSMTP1->Username=mailsettings;
    if (!IdSMTP1->Connected())
        {
        IdSMTP1->Connect(-1);
        }
    IdSMTP1->Send(IdMessage1);
    IdSMTP1->Disconnect();
    delete TOLIST;
    delete BCCLIST;
    IdSMTP1->Destroying();
    IdMessage1->Destroying();
    ShowMessage("E-mail is verstuurd");
}

-- 
Kind regards

Francois Van Wouwe