Checklistbox/Pop3 - Error Message ?

[c4st0rtr0y]

nabend,
also folgendes. schreib grad etwas an einem kleinem mail tool und habe folgendes prob. wenn ich meine mails abrufe (erstmal nur die header) und in eineChecklistbox schreiben möchte, bekomm ich jedesmal den fehler "ERR-Message Number out of range" und zusätzlich sind alle mails die einen Anhang beinhalten doppelt eingetragen. :/ weis nich mehr weiter hab scho div. sachen ausprobiert bzw hier geschaut aber nichts passendes gefunden.

Delphi-Quellcode:

procedure TForm1.ffnen1Click(Sender: TObject);
var
i:integer;

begin
for i := 1 to pop1.MessageCount do
begin
pop1.RetrieveHeader(i, Message1);
checklistbox1.Items.Add(Message1.Subject);
Message1.Clear;

end;
end;

infos:
pop1 wäre die pop-kompo
message1 der parser
checklistbox1 = checklistbox
benutze eine kompo die der indy sehr ähnelt/CIS, an ders aber nicht liegt
delphi 7

ps: wäre es möglich das die checklistbox nur bestimmte mails anzeigt die z.b. das subject "News" enthalten bzw nen anhang besitzen?

thx 4 help + info