ListView (Access Violation) beim Beenden

[Nightshade]

Gar nichts,...

Das ListView ist auf Form2 (mit dem ShellTreeView), welches ich mit einem Menu-Item auf Form1 öffne.

Form2 schliessen (BitBtn mit Modalresult := mrClose) funktioniert,
aber wenn ich dann Form1 schliesse gibts ne AV.

Aber nur wenn ich in die Listview auch was rein-ge-drog-drop-ed habe.

Form1 (unit1):

Delphi-Quellcode:

procedure TForm1.Optionen1Click(Sender: TObject);
begin
  Form2.ShowModal;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Pfad := IncludeTrailingPathDelimiter(Extractfilepath(Application.ExeName));
end;

Form2 (unit2) :

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
begin
  if not Fileexists(Form1.pfad + 'hash.dat') then begin
    dat := TFileStream.Create(Form1.pfad + 'hash.dat', fmCreate OR fmShareExclusive );
    dat.Free;
  end;
  if not Fileexists(Form1.pfad + 'hash.dat') then
    Application.Terminate;

  dat := TFileStream.Create(Form1.pfad + 'hash.dat', fmOpenReadWrite OR fmShareExclusive )

end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  dat.free;
end;


PS : Die AV hatte ich auch schon bevor ich den FileStream darein gebaut habe.