отправка mail

bool ConnectPOP3(){
        Form1->NMPOP31->UserID = idpop
        Form1->NMPOP31->Password = password
        Form1->NMPOP31->Host = popserver
        if (Form1->NMPOP31->Connected) Form1->NMPOP31->Disconnect();
        Form1->NMPOP31->Connect();
        return Form1->NMPOP31->Connected;
}
//потом коннектимся на smtp
bool ConnectSMTP(){
        Form1->NMSMTP1->Host = smtpserver
        Form1->NMSMTP1->Port = 25;
        Form1->NMSMTP1->UserID = idsmtp;
        Form1->NMSMTP1->PostMessage->FromName = Form1->Edit2->Text;
        Form1->NMSMTP1->PostMessage->FromAddress = mail
        Form1->NMSMTP1->PostMessage->Subject = subject

        Form1->NMSMTP1->PostMessage->ToAddress->CommaText = email_
        Form1->NMSMTP1->PostMessage->ToBlindCarbonCopy->Add("");
        Form1->NMSMTP1->PostMessage->ToCarbonCopy->Add("");
        Form1->NMSMTP1->PostMessage->Attachments->Add("c:\1.doc");
        Form1->NMSMTP1->PostMessage->Body->Text = body
        Form1->NMSMTP1->SubType = mtHtml;
        Form1->NMSMTP1->Connect();
        return Form1->NMSMTP1->Connected;
}

int Send(){
        if (ConnectPOP3()){
                if (ConnectSMTP()){
                        Form1->NMSMTP1->SendMail();
                }
        }
        return 0;
}