[delphi]listview

procedure TForm1.Odbior(liczbawiad: integer);
var
index,index2: integer;
itm: Tlistitem;
begin
listview1.Enabled:=false;
listview1.Items.Clear;
for index:=1 to liczbawiad do begin
statusbar1.panels.items[2].Text:=(format('Odbieranie wiadomości %d z %d', [index, liczbawiad]));
message.Clear;
pop.RetrieveHeader(index,message);
itm:= listview1.Items.Add;
itm.ImageIndex:=2;
itm.Caption:=(message.from.text);
itm.SubItems.Add(message.Subject);
itm.SubItems.Add(datetostr(message.Date));
itm.SubItems.Add(inttostr(pop.RetrieveMsgSize(index)));
for index2:=0 to Pred(message.MessageParts.Count) do
if message.MessageParts.Items[index2] is TIDAttachment then
itm.subitems.Add('jest')
end;
listview1.Enabled:=true;
end;

mam taki kod ale cos mi nie dodaje tego "jest" jeżeli jest załacznik...