ShellExecute und OpenDialog -> Problem

[Mazel]

Hallo,

mir ist dieses Problem nicht aufgefallen, aber heute wurde es von einen DP User gefunden. Folgendes: In einem Menü (MainMenu) kann man in die readme.txt einsichten. Doch wenn vorher das OpenDialog geöffnet und eine Datei angenommen wurde, dann kann ich die readme.txt, die ich über ShellExecute öffnen, nicht mehr öffnen.

Delphi-Quellcode:

{--[MMuReadClick]--------------------------------------------------------------} 

procedure TMain.MMuReadClick(Sender: TObject); 
begin 
if Sender = MMuRead then 
  begin 
   if OpenDia.Execute then 
    begin 
      ...
    end; 
  end 
else if Sender = MMuCopy then 
  begin 
    ... 
  end 
else if Sender = MMuExit then Close 
else if Sender = MMuInfo then Info.ShowModal 
// else ShellExecute(Application.Handle, 'OPEN', 'readme.txt', nil, nil, SW_NORMAL); 
else ShellExecute(Application.Handle, nil, 'readme.txt', '', '', SW_NORMAL); 
end;

Beide Varianten funktionen zunächst ohne Probleme, doch wie schon erwähnt, geht das nicht mehr wenn das OpenDialog geöffnet ist und eine Datei ausgewählt wurde. Ich nehme an das ShellExecute irgend ein Fehler erzeugt, doch welchen?

Hat jemand einen Rat?

Gruß
Mazel