1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TfmMain.ToolButton3Click(Sender: TObject);
var i:Byte;
    Item:TListItem;
begin
 nMessages:=Pop.CheckMessages;
 MsgSize:=Pop.RetrieveMailBoxSize div 1024;
 ShowMessage(IntToStr(nMessages));
 For i:=1 to nMessages do
  begin
   Pop.RetrieveHeader(i,idMessage);
   Item:=ListView.Items.Add;
   Item.Caption:=idMessage.From.Text;
 //  Item.SubItems.Add(idMessage.Subject);
 //  Item.SubItems.Add(IntToStr(Pop.RetrieveMsgSize(2)));
 //  Item.SubItems.Add(DateToStr(idMessage.Date));
  end;
end;