Opendialog wird in IDE nicht angezeigt

[ede57]

Hallo,
wenn ich die procedure unter Win7 ausführe wird von > openDialog.Execute <
gleich nach > if dxfFilename = '' then Exit;< gesprungen
Also alles nach Execute wird gar nicht erst Ausgeführt
Außerhalb der IDE läuft alles i.o.

Habe Kasperski kein Avira.
Kasperski komplett ausgeschaltet
Trotzdem funktioniert es nicht

Bei einem Anderen Project funktioniert der OpenDialog innerhalb der IDE einwandfrei

Delphi-Quellcode:

procedure Tfo_main_form.sBtnLoadDxfFileClick(Sender: TObject);
Var
  DxfFilename : String;
  X,Y : integer;
  dxl : TDXF_Layer;
  DXXF : TDxf_Entitie;
begin
   opdlg_DxfOpen.InitialDir  := ExtractFilePath( Application.ExeName);
   if opdlg_DxfOpen.Execute then
      begin
        DxfFileName := opdlg_DxfOpen.FileName;
        if dxfFilename = '' then Exit;
        DXFFileReader := TDxfReader.Create(dxfFilename);
        if DXFFileReader.DxfOk then
          begin
            DxfFile := TDxf_File.Create;
            DXFFileReader.DxfFile := DxfFile;
            DXFFileReader.Execute;
          end;
       FREEANDNIL(DXFFileReader);
      end;
// keine Datei ausgewählt
   if dxfFilename = '' then Exit;
   DxfFile.Calculate;
   FDxfFileShow := True;
   ShowMinMax;
end;