Помощ INDY

Здрвейте, имам следният въпрос:

чрез Tidattachment.create(lmessage.messageparts, 'c:\a.txt')
прикачвам файл към писмо и го изпращам. Направил сам POP client но не знам как прикачения файл който получавам да го запиша на твърдия диск с Indy. Моля за помощ тъй като не съм се занимавал много с indy. Благодаря!

Като си прочетеш съобщението се разходи по MessageParts. Проверявай дали съответната част е TIdAttachment и ако да - използвай метода SaveToFile

  for j := 0 to Msg.MessageParts.Count - 1 do

    if Msg.MessageParts[j] is TIdAttachment then

      (Msg.MessageParts[j] as TIdAttachment).SaveToFile('c:\' + IntToStr(j));

ПП Пиша малко наизуст и по спомени. Надявам се, да не съм объркал нещо

for i:= 0 to (CurrentMessage.MessageParts.Count - 1) do

if (CurrentMessage.MessageParts.Items [ i ] is TIdAttachment) then

TIdAttachment(CurrentMessage.MessageParts.Items [ i ]).SaveToFile(SaveDialog1.FileName);

Не мога да тествам в монента, но ако по другият начин не става, можеш да го пробваш.