Delphi - TIdAttachmentFile

Utilizzo delphi 2009 con indy 10

Sto creando una funzione per scaricare gli allegati da una mail.
Tutto funziona ma quando in una mail ho un allegato in formato .csv o .txt, non lo riconosce come allegato (is TIdAttachmentFile) ma come testo(is TIdText).

ecco la parte di codice:

for intIndex := 0 to Pred(Mess.MessageParts.Count) do
begin
if (Mess.MessageParts.Items[intIndex] is TIdAttachmentFile) then
begin
<operazioni>
end
else
if Mess.MessageParts.Items[intIndex] is TIdText then
begin
<operazioni>
end

end;



se questa funzione la faccio girare su Delphi 7 con indy 10 questi allegati li riconosce come tali,
ed entra correttamente nell'if is TIdAttachmentFile.

come posso fare per risolvere il problema con delphi 2009?

delphi2009 utilizza un meccanismo di compilazione completamente diverso da delphi7 (in delphi2009 si usano dll .net) quindi può essere un idea cercare un oggetto già fatto per ovviare al problema.