ListView (Access Violation) beim Beenden

[Nightshade]

Hallöle.

Ich hab nen Formular mit nem ListView, wenn ich da Items erstelle mit dem Code :

Delphi-Quellcode:

procedure TForm2.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var li : TListItem;
   t : integer;
begin
  if Source is TShellTreeView then begin
    for t := 0 to pred(ListView1.Items.Count) do
      if ListView1.Items[t].Caption = (Source as TShellTreeView).SelectedFolder.PathName then
        exit;
      li := ListView1.Items.Add;
      li.Caption :=(Source as TShellTreeView).SelectedFolder.PathName;
      li.SubItems.Add('X');
  end;
end;

habe ich das Problem, das beim Schliessen des Programmes Ne Access Violation entsteht.

Ne Idee wodran das liegt ?
habe ich was vergessen ?