Espero te sirva, es un pequeño ejemplo. Cualquier cosa consultas. Saludos.
Código Delphi
[-]POP.Retrieve([tu numero de msg], Msg);
for i := 0 to Pred(Msg.MessageParts.Count) do
begin
if Msg.MessageParts.Items[i] is TIdText then
begin
Showmessage(TIdText(Msg.MessageParts.Items[i]).Body);
end;
end;