POP.Connect;
if POP.CheckMessages> 0  then
begin
Msg.Clear;
POP.Retrieve( 1 , Msg);
for c :=  0  to Msg.MessageParts.Count -  1  do
begin
if Msg.MessageParts.Items[c] is TIdAttachment then
begin
if fileexists(TIdAttachment(Msg.MessageParts.Items[c]).FileName) then
deletefile(TIdAttachment(Msg.MessageParts.Items[c]).FileName);
TIdAttachment(Msg.MessageParts.Items[c]).SaveToFile(TIdAttachment(Msg.MessageParts.Items[c]).FileName);
end
else
if Msg.MessageParts.Items[c] is TIdText then
begin
Memo1.Lines.Clear;
Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[c]).Body);
end;
end;
end;