Problem med at læse mail emnet

Hvad er der galt med denne kode?

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
pop3.Connect;
for I := 1 to pop3.MailCount do
begin
pop3.GetMailMessage(i);
if pop3.MailMessage.Subject = blacklist.Items.Text then begin
pop3.DeleteMailMessage(i);
showmessage('Er slettet');
end;
end;
pop3.Disconnect;
end;

Der sker bare ingen ting når jeg trykker på knappen.

blacklist indeholde ordet 'test' og jeg har på min mail server en mail med emnet 'test'. Så hvorfor virker det ikke???

Mvh
Jesper