Dialog aus Fremder DLL aufrufen

[The-X]

hi folks

ich wollte aus der msgina.dll einen Dialog darstellen, der dort in den Resources vorhanden ist
nur leider funktioniert das vorne und hinten nicht

Delphi-Quellcode:

program ginadlg;

uses
  Windows, CommCtrl, CommDlg, Messages;

const
  DLG=2210;
  DLL='msgina.dll';
var
  hMSGINA:Cardinal;
  hApp: Cardinal;
  msg: TMsg;

function dlgfunc(hwnd: hwnd; umsg: dword; wparam: wparam; lparam: lparam): bool; stdcall;
begin
result:=true;
  case umsg of
    WM_INITDIALOG: begin
      hApp := hwnd;
    end;
    WM_CLOSE: begin
      EndDialog(hWnd, 0);
      DestroyWindow(hwnd);
      PostQuitMessage(0);
      FreeLibrary(hMSGINA);
    end;
    else result:=false;
  end;
end;

begin
 InitCommonControls;
  hMSGINA:=LoadLibraryEx(DLL, 0, LOAD_LIBRARY_AS_DATAFILE);
  If hMSGINA<>0 Then begin
    if CreateDialog(hMSGINA, MAKEINTRESOURCE(DLG), 0, @DlgFunc)=0 Then
      MessageBox(0,'X','ERROR',0) else begin
        while true do begin
        if not GetMessage(msg, 0, 0, 0) then break;
        if IsDialogMessage(hApp, msg) = FALSE then begin
          TranslateMessage(msg);
          DispatchMessage(msg);
        end;
        end;
      end;
  end;
end.

das programm zeigt weder den Dialog, noch kommt eine fehlermeldung