OpenDialog blockiert das Umbenennen eines Ordners

[Mysticus]

Hallo,

wenn ich mit OpenDialog eine Datei auswähle und anschließend versuche, den Ordner, in dem die ausgewählte Datei liegt, umzubenennen, meldet Windows: "Der Prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess verwendet wird." Mit 'Datei' meint Windows hier wohl den umzubenennenden Pfad und mit 'einem anderen Prozeß' meint es wohl den eigenen (das Umbenennen versuchenden) Prozeß.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  InFile: TextFile;
begin
  OpenDialog1.InitialDir := 'C:\Testle1';
  if OpenDialog1.Execute() then
  begin
    AssignFile(InFile, OpenDialog1.FileName);
    Reset(InFile);
    CloseFile(InFile);
  end;
//  OpenDialog1.InitialDir := 'C:\';
//  OpenDialog1.FileName := '';
//  OpenDialog1.Execute();
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if MoveFile('C:\Testle1', 'C:\Testle2') then
    Application.MessageBox('Hat gefunzt', 'Fehler', MB_OK)
  else
    Application.MessageBox(PChar(SysErrorMessage(GetLastError())), 'Fehler', MB_OK); 
end;

Wird nach dem Programmstart Button2 betätigt, tut das Umbenennen. Wird zuvor Button1 betätigt, tut es nicht. Werden aber in Button1Click() die drei auskommentierten Zeilen aktiviert (und beim zweiten Execute() eine Datei aus einem anderen Verzeichnis ausgewählt), so läßt sich das Verzeichnis wieder umbenennen. Auch RenameFile() verhält sich gleich und auch ein Erzeugen und Zerstören von TOpenDialog zur Laufzeit hilft nicht weiter. Anscheinend blockiert OpenDialog den Pfad der zuletzt ausgewählten Datei sogar über seine Lebensdauer hinaus.

Hat jemand einen Lösungsvorschlag?

Gruß & Danke,

Mysticus