[jlcasih]

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;