Demo Delphi, EMail

[[Caral]]

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