Mensagens novas - POP3

Pessoal, preciso identificar quais e-mails foram lidos e quais são novos.

Estou utilizando

IdPop31.Connect;
try
N := IdPop31.CheckMessages;
for I := 1 to N do begin
IdMessage1.Clear;
if IdPop31.RetrieveHeader(I, IdMessage1) then begin
if (mfSeen in idMessage1.Flags) then showmessage(´NOVA´) else showmessage(´LIDA´)
end;
end;
finally
IdPop31.Disconnect;
end;

Mais este código não esta funcionando. Alguem tem alguma alternativa??

Obrigado