Demo Delphi, EMail
 

Hola a todos
Estaba tratando de hacer funcionar el programa demo (MailClient) que trae delphi en la carpeta indi, MailClient, MailDemo.
Lo configuro bien y empieza a descargar los email, pero despues de descargar varios, me da el error de abajo.
y me aparece en esta linea:

Código Delphi [-]
procedure TfrmMain.RetrievePOPHeaders(inMsgCount: Integer);
var
stTemp: string;
intIndex: integer;
itm: TListItem;
begin
stTemp := Statusbar1.Panels[1].text;
lvHeaders.Items.Clear;
for intIndex := 1 to inMsgCount do
begin
// Clear the message properties
ShowStatus(format('Messsage %d of %d', [intIndex, inMsgCount]));
Application.ProcessMessages;
Msg.Clear;
POP.RetrieveHeader(intIndex, Msg);
// Add info to ListView
itm := lvHeaders.Items.Add; // AQUI DA EL ERROR
itm.ImageIndex := 5;
itm.Caption := Msg.Subject;
itm.SubItems.Add(Msg.From.Text);
itm.SubItems.Add(DateToStr(Msg.Date));
itm.SubItems.Add(IntToStr(POP.RetrieveMsgSize(intIndex)));
itm.SubItems.Add('n/a');
// itm.SubItems.Add(POP.RetrieveUIDL(intIndex));
end;
ShowStatus(stTemp);
end;

Ojala me puedan decir donde esta el error
dibujo1.zip (
Gracias de antemano
Saludos
Por favor si algun moderador arregla el codigo, cuando le doy vista preliminar, se pone asi y no lo puedo arreglar.
Gracias

no intentaste tracear esa funcion del codigo para ver en donde te da el error?
porque por lo que veo. este codigo solo levanta el header del mensage es decir.
Leer uno por uno todos los mesnajes y los va insertando en el ListItem. el valor del Asunto, quien lo mando, Fecha y Tamaño (los datos que son disponibles enl header).
Si quisieras todo el mail.. Tendrias que usar
"creo que es" RetreiveMSG o algo asi.