Zugriff auf USB Stick beenden

[Lemmy]

Hallo,

folgendes Problem: Form+Button+Edit+OpenDialog. Nach folgendem Code

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
    Edit1.Text:=OpenDialog1.FileName;
  end;
end;

ist der USB Stick gesperrt, d.h. ich kann diesen nicht mehr entfernen. Erst wenn ich die komplette Anwendung schließe (das Form freigeben bringt leider nix) kann ich den USB Stick freigeben.

Wie schaffe ich es der Anwendung mitzuteilen den Zugriff auf den Stick zu beenden?

Grüße