jak pobrać email bez załącznika?

jak pobrać email (sam jego tytuł) bez załącznika ? bo jak chce zrobic liste tego co jest na skrzynce to zawsze kiedy nie ma załącznika jest ok ale kiedy jest automatycznie zaczyna się ściągać :/ już nie wiem co mam z tym zrobić :[ skrzynka pop3 oczywiście delphi 7 personal z indy help ;(

pobieraj same naglowki

No właśnie staram się to zrobić :[ IdPOP31.RetrieveHeader(il_wiad,IdMessage1); miałem wcześniej IdPOP31.Retrievemsg(il_wiad,idmessage1); ale itak cały czas mam wrażenie że pobieram całą wiadomość razem z załącznikiem :|

TUTAJ

No właśnie to był jeden z przykładów którym się posłużyłem by napisać ten program ale on przetważa całą wiadomość po ściągnięciu dopiero a ja chce tylko tytuł pobrać i nic więcej.

begin
IdMessage1.Clear;
IdPOP31.Host := Edit1.Text;
IdPOP31.Username := Edit2.Text;
IdPOP31.Password := Edit3.Text;
folder_docelowy:=edit4.text;
If not IdPOP31.Connected then
begin
try
statusbar1.SimpleText := 'Odbieranie poczty - zestawianie połączenia!!!';
IdPOP31.Connect(-1);

statusbar1.SimpleText := 'Odbieranie poczty - połączony!!!';
except
on exception do
begin
statusbar1.SimpleText := 'Odbieranie poczty - to nie serwer pop3!!!';
end;
end;
end;

if IdPOP31.Connected then
begin
il_wiad := IdPOP31.CheckMessages;
statusbar1.SimpleText := inttostr(il_wiad);
il_tychsamych:=0;

while il_wiad > 0 do
begin
IdMessage1.Clear;
form1.IdPOP31.RetrieveHeader(il_wiad,idmessage1);
if
ppobierana=idmessage1.subject
then
begin

end
else
listbox1.items.add(IdMessage1.Subject);
licznik:=il_wiad-1;
il_wiad:=licznik;
end;
end;
end.

sory że jedno pod drugim oto kod może ktoś mi podpowie jak go zmienić żeby nie pobierał całego listu żeby sprawdzić temat ;( może źle sie do sprawy zabieram i tam trzeba coś z tym mime zrobić ;(