Вот фрагмент:

procedure TForm1.Button1Click(Sender: TObject);
var
MsgCount:integer;
i,j:integer;
fn:string;
begin
Memo1.Clear;
POP3.Connect(-1);
Memo1.Lines.Add('POP3 connected');
MsgCount:=POP3.CheckMessages;
Memo1.Lines.Add('Ïèñåì â ÿùèêå: '+IntToStr(MsgCount));
for i:=1 to MsgCount do
begin
Pop3.Retrieve(i,Msg);
Memo1.Lines.Add(IntToStr(Msg.MessageParts.Count));
for j:=0 to Msg.MessageParts.Count-1 do
if Msg.MessageParts.Items[j] is TIdAttachment then
begin
TIdAttachment(Msg.MessageParts.Items[j]).SaveToFile(TIdAttachment(Msg.MessageParts.Items[j]).FileName);
// TIdAttachment(Msg.MessageParts.Items[j]).De
Memo1.Lines.Add(TIdAttachment(Msg.MessageParts.Items[j]).FileName);
end;
//Pop3.Delete(i);
Memo1.Lines.Add('Óäàëåíî ïèñüìî ¹'+IntToStr(i));
end;

POP3.Disconnect;
Memo1.Lines.Add('POP3 disconnected'+#13);
end;

В Memo1 пишется все как должно быть, вложенные файлы в письме определяются, на диске создаются. Но пустые, нулевого размера.
Никто не подскажет, почему?

В общем, такая штука наблюдается:
В D6, без update'ов всяких и пр, вложенные файлы принимаются нулевого размера.
Если просто скомпилировать то же самое В D7, вложения принимаются правильно.
Indy 9.0.4
Хрен что понимаю :(
Может, для D6 нужно какое-то обновление? Никто не подскажет?