try - except in Dialogprozedur führt zu Darstellungfehler

[Niko]

Erstmal Danke für die Antworten.

@choose:
Ich verwende nur Units, die mit Delphi geliefert werden.

Der Code der Dialogprozedur:

Delphi-Quellcode:

function DlgProc(hDlg: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM):
  Boolean; stdcall;
begin
  Result := true;
  case uMsg of
    WM_COMMAND:
      begin
        if LOWORD(wParam) = IDOK then
        begin
          try  // Wenn man diesen try-finally-Block entfernt, ist der Fehler weg.
            // Hier steht eigentlich Code, aber der Fehler tritt auch ohne auf.
          finally
            // Code
          end;      
          EndDialog(hDlg, 0);
        end;
      end;
  else
    Result := false;
  end;
end;

Ich hab mal eine Projektdatei, die den Fehler erzeugt, zusammen mit der verwendeten Ressourcendatei angehängt.