[jorodgar]

Para recuperar la cabecera de un correo uso lo siguiente que funciona perfectamente :

POP.RetrieveHeader(intIndex, IdMessage1);
itm := ListView1.Items.Add;
itm.Caption := IdMessage1.Subject;
itm.SubItems.Add(IdMessage1.From.Text);
itm.SubItems.Add(DateToStr(IdMessage1.Date));
itm.SubItems.Add(IntToStr(POP.RetrieveMsgSize(intIndex)));

Lo que deseo es recuperar los primeros caracteres del cuerpo del mensaje (BODY) sin que me marque el correo como leido (STATUS de la cabecera a R).
Por lo visto con el RetrieveHeader no puedo leer el body, y utilizando POP.Retrieve para leer el body no me sirve porque automaticamente me lo pone como correo leido. Existe alguna forma ?
La idea que llevo es hacer un notificador de correo tipo google, que te avisa cuando te llega un correo nuevo, indicándote quien te lo envia, fecha, asunto y un trozo del mensaje.
Gracias.