Seltsame Abstürze beim 2. Zugriff.

oItems := TobitArchiv.GetArchiveEntries(DvFilterDefault Or DvFilterUnViewed);


   iMax := oItems.Count -1;


   iMin := 0;


   lvTob.Clear;
   pgb1.Position := 0;


   pgb1.Max := iMax;


   pgb1.Visible := TRUE;






   for x := iMin to iMax do


   begin


      pMessageItem2 := oItems.Item(x) ;


      oFields := Fields(pMessageItem2.Fields);


      ls := lvTob.Items.Add;


      ls.Caption := oFields.Item(Field_SRfrom).Value;


      s := oFields.Item(Field_Subject).Value; 


      if trim(s) = '' then  s := ' - ohne Betreff - ';


      ls.SubItems.Add(s);


      ls.SubItems.Add(oFields.Item(Field_StatusTime).Value); 


      ls.SubItems.Add(oFields.Item(Field_RecNo).Value); 


      pgb1.StepIt;


   end;