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

procedure TForm1.Button4Click(Sender: TObject);
Var Count,a:Integer;
begin
pop.Disconnect;
pop.Host := Edit7.Text;
pop.Username := Edit8.Text;
pop.Password := Edit9.Text;
pop.Connect;
Count := pop.CheckMessages;
Label13.Caption := IntToStr(Count);
ShowMessage(IntToStr(Count));
// Mails herunterladen
For a := a to Count do
begin
  pop.RetrieveHeader(a,Mail);
  ListBox1.Items.Add(Mail.From.Address)
end;