[Ama]

Код:

procedure TXploreForm.DoMasking(Mask: string);
 var i: integer;
begin
 with ListView1.Items do
  begin
   BeginUpdate;
   i:= 0;
   while i < Count do
    begin

     if not (MatchesMask(Item[i].Caption, Mask)) then
        Item[i].Delete;
     Inc(i);
    end;
   EndUpdate;
  end;
end;

Вроде по логике вещей все правильно, но почему-то не правильно работает.