program APPNAME;

uses
  WinCrt, WinProcs, WinTypes;

var

  WndClass: TWndClass;
  msg: TMSG;

function WNDPROC(hwnd: HWND; uMsg, wParam: WORD; lParam: LongInt): LongInt;
begin
  WNDPROC := DefWindowProc(hwnd, uMsg, wParam, lParam);
end;
begin

  WndClass.style := CS_OWNDC;
  WndClass.lpfnWndProc := @WNDPROC;
  WndClass.cbClsExtra := 0;
  WndClass.cbWndExtra := 0;
  WndClass.hInstance := hInstance;
  WndClass.hIcon := 0;
  WndClass.hCursor := LoadCursor(hInstance, IDC_ARROW);
  WndClass.hbrBackground := COLOR_WINDOW;
  WndClass.lpszMenuName := nil;
  WndClass.lpszClassName := 'WndClass';
  RegisterClass(WndClass);


  CreateWindowEx(WS_EX_DLGMODALFRAME, 'WndClass',
                 'Bruchrechnen',
                 WS_VISIBLE or WS_CAPTION or WS_SYSMENU,
                 0, 0,
                 500, 500,
                 0, 0, hInstance, nil);
  while True do
  begin
    if not GetMessage(msg, 0, 0, 0) then
      exit;
    TranslateMessage(msg);
    DispatchMessage(msg);
  end;
end.