TidPop3 attachment проблем

използвам Indy TidPop3 за достъп на майл, но имам проблем със съхраняването на attachment -и от маила. винаги ми ги дава 0 байта.

някой ако може да ми помогне с този проблем.

това е кода, който използвам:


FMsgCount := POP.CheckMessages;
POP.Retrieve(index, Msg);
//Setup attachments list
for intIndex := 0 to Pred(Msg.MessageParts.Count) do
begin
if (Msg.MessageParts.Items[intIndex] is TIdAttachment) then
begin //general attachment
fileName := TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename;
TIdAttachment(Msg.MessageParts.Items[intIndex]).SaveToFile(fileName);
end
else
begin //body text
bodytxt:=TIdText(Msg.MessageParts.Items[intIndex]).Body.Text;
end
end;