case uMsg of
    WM_COMMAND  : begin
                    if wParam = IDC_CLOSE then End_Work;
                    if wParam = IDC_ABOUT then
                       MessageBox(hWin, AboutText, AboutCapt, 0);
                    if (LOWORD(wParam) = IDC_NAME)  and
                       (HIWORD(wParam) = EN_CHANGE) then Generate;
                  end;
    WM_INITDIALOG : begin
                      hIcon := LoadIcon(Inst, 'MAINICON');
                      SendMessage(hWin, WM_SETICON, ICON_SMALL, hIcon);
                      SendMessage(hWin, WM_SETICON, ICON_BIG,   hIcon);
                      SetWindowText(hWin, WindowTitle);
                      hWnd := hWin;
                    end;
    WM_DESTROY,
    WM_CLOSE      : End_Work;
  end;