Ребята, помогите с ошибкой!!!
if (MailCount>0)
for (i=1; i<=MailCount; i++)
{
if(IdMsg != NULL) delete IdMsg; IdMsg = new TIdMessage(this);
if(IdPOP31->Retrieve(i, IdMsg))
{
Subj = IdMsg->Subject;
From = IdMsg->From->Address;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
PartCount = IdMsg->MessageParts->Count;
for(p = 0; p < PartCount; p++)
{
if(IdMsg->MessageParts->Items[p]->ClassNameIs("TIdAttachment"))
{
IdAttach = (TIdAttachment*) IdMsg->MessageParts->Items[p];
File_Name = IdAttach->FileName;
if(FileExists(File_Name)) DeleteFile(File_Name);
IdAttach->SaveToFile(File_Name);
}
else
if(IdMsg->MessageParts->Items[p]->ClassNameIs("TIdText"))
{
Memo1->Lines->AddStrings(TIdText(IdMsg->MessageParts->Items[p])->Body);
// Вот здесь ошибка??? Почему??
}
}
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//IdPOP31->Delete(i);
}
}