Александр Ильин, спасибо.

Если не сложно, покажите как будет выглядеть этот код на КП, пожалуйста:

## Код:
```
program VerySimple;

uses
  Windows, Messages;

var
  wClass: TWndClass;
  Msg: TMsg;
  Win, Button1: HWND;
  
function WindowProc(Win, Msg, WP, LP: Integer): Integer; stdcall;
begin
  case Msg of

    WM_COMMAND:
      if LoWord(WP) = 1001 then PostQuitMessage(0);

    WM_DESTROY:
      PostQuitMessage(0)

  end;
  Result := DefWindowProc(Win, Msg, WP, LP)
end;

BEGIN
  with wClass do
  begin
    lpszClassName:= 'CN';
    lpfnWndProc :=  @WindowProc;
    hbrBackground := 1;
    hCursor := LoadCursor(0,IDC_ARROW)
  end;
  RegisterClass(wClass);

  Win := CreateWindow(wClass.lpszClassName, 'Это очень простая программа',
    WS_OVERLAPPED or WS_SYSMENU or WS_MINIMIZEBOX or WS_VISIBLE,
    400, 300, 340, 217, 0, 0, hInstance, nil);

  Button1 := CreateWindowEx(WS_EX_STATICEDGE, 'Button', 'Выход',
    WS_VISIBLE or WS_CHILD, 264, 170, 66, 20, Win, 1001, hInstance, nil);

  while GetMessage(Msg, 0, 0, 0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg)
  end;
  Halt(Msg.wParam)
END.
```
