Opendialog Fehler unter XP-Mode

[Chemiker]

Hallo,

bei mir tritt ein Fehler mit Opendialog im XP-Mode auf:
Test-Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
  begin
     ShowMessage(OpenDialog1.FileName);
  end;
end;

Der Fehler tritt nur auf, wenn ich das Programm innerhalb der IDE aufrufe. Wenn ich die EXE aufrufe läuft es normal. Unter Win 7 gibt es kein Problem.

Bis bald Chemiker