błąd z idmessage

Co tu mam żle chodzi mi o wyświetlenie wybranego maila z ListView rozmiaru maila

var i: integer;
lv: TlistItem;
temat:string;
od:string;
otrz:string;
utw:string;
rozm:integer;
begin
IdPOP31.Connect;
try
for i := 0 to IdPOP31.CheckMessages do IdPOP31.Retrieve(i, Wiad[i]);
except on exception do Application.MessageBox('Problem z połączeniem','Błąd',MB_Ok+MB_IconExclamation);
end;
for i := 0 to IdPop31.CheckMessages do
begin
temat:=(Wiad[i].Subject);
od:=(Wiad[i].From.text);
otrz:=DateToStr(Date);
utw:=(DateToStr(Wiad[i].Date));
rozm:=(IntToStr(idpop31.RetrieveMsgSize(i)));
lv:=ListView1.Items.Add;
lv.ImageIndex:=10;
lv.SubItems.Add(temat);
lv.SubItems.Add(od);
lv.SubItems.Add(otrz);
lv.SubItems.Add(utw);
lv.SubItems.Add(rozm);

bo w demosach jest tak

itm.SubItems.Add(IntToStr(POP.RetrieveMsgSize(intIndex)));