Программа на WINAPI

begin
ServerSocket.Active:=true;
end;

program Project2;
 
uses
  Windows,
  Messages,
  StdCtrls;
 
const
  szMainWndClass: array [0..15] of Char = 'Project1MainWnd';
  szCaption: array [0..6] of Char = 'WinAPI';
  szErrClassReg: array [0..30] of Char = 'Ошибка регистрации класса окна';
  szErrCreateWnd: array [0..20] of Char = 'Ошибка создания окна';
 
  var
  hMainWnd: HWND;
  wc: WNDCLASS;
  mess: MSG;
  Btn: TButton;
 
  function MainWndProc(Wnd: HWND; uMsg: UINT; WPrm: WPARAM; LPrm: LPARAM): LRESULT;stdcall;
  begin
    Result:=0;
    case uMsg of
      WM_CLOSE: DestroyWindow(Wnd);
      WM_DESTROY: PostQuitMessage(0)
        else
      Result:=DefWindowProc(Wnd,uMsg,WPrm,LPrm);
    end;
  end;
 
begin
  wc.style := CS_HREDRAW or CS_VREDRAW;
  wc.lpfnWndProc := @MainWndProc;
  wc.cbClsExtra := 0;
  wc.cbWndExtra := 0;
  wc.hInstance := HInstance;
  wc.hIcon := LoadIcon(0, IDI_APPLICATION);
  wc.hCursor := LoadCursor(0, IDC_ARROW);
  wc.hbrBackground := COLOR_WINDOW;
  wc.lpszMenuName := nil;
  wc.lpszClassName := @szMainWndClass;
    if RegisterClass(wc) = 0 then
    begin
      MessageBox(0, @szErrClassReg, nil, MB_OK);
      Exit
    end;
hMainWnd := CreateWindow(@szMainWndClass,
    @szCaption,
    WS_OVERLAPPEDWINDOW,
    CW_USEDEFAULT, CW_USEDEFAULT,
    CW_USEDEFAULT, CW_USEDEFAULT,
    GetDesktopWindow,
    0,
    HInstance,
    nil);
  if hMainWnd = 0 then
    begin
      MessageBox(0, @szErrCreateWnd, nil, MB_OK);
      Exit
    end;
  ShowWindow(hMainWnd, CmdShow);
  UpdateWindow(hMainWnd);
  while GetMessage(mess, 0, 0, 0) do
    begin
      TranslateMessage(mess);
      DispatchMessage(mess)
    end;
end.

Btn.Create();