AV beim Schliessen von Form mit ShellListview

[Luckie]

Hallo,
das könnte tatsächlich der Grund sein. Ichhabe es jetzt anders gelöst:

Delphi-Quellcode:

procedure TfrmSaveTemplate.btnOKClick(Sender: TObject);
begin
  FAuthor := edtAuthor.Text;
  FDescription := memDescription.Text;
  FFilename := FPath + '\' + edtFile.Text;
end;

procedure TfrmSaveTemplate.edtFileChange(Sender: TObject);
begin
  btnOK.Enabled := edtFile.Text <> '';
end;

function TfrmSaveTemplate.Execute: Boolean;
begin
  Result := Self.ShowModal = mrOK;
end;

procedure TfrmSaveTemplate.FormCreate(Sender: TObject);
begin
  btnOK.Enabled := edtFile.Text <> '';
end;

procedure TfrmSaveTemplate.ShellListView1Click(Sender: TObject);
begin
  if ShellListView1.ItemIndex > -1 then
  begin
    if ShellListview1.SelectedFolder.IsFolder then
      FPath := ShellListview1.SelectedFolder.PathName
    else
      edtFile.Text := ShellListview1.SelectedFolder.DisplayName;
  end;
end;

Und das funktioniert soweit.