procedure TApplication.CreateHandle;
// ...
begin
  if not FHandleCreated and not IsConsole then
  begin
    // ...
    FObjectInstance := MakeObjectInstance(WndProc);
    LHandle := CreateWindowEx(WS_EX_TOOLWINDOW, WindowClass.lpszClassName, (FTitle),
      WS_POPUP or WS_CAPTION or WS_CLIPSIBLINGS or WS_SYSMENU
      or WS_MINIMIZEBOX,
      GetSystemMetrics(SM_CXSCREEN) div 2,
      GetSystemMetrics(SM_CYSCREEN) div 2,
      0, 0, 0, 0, HInstance, nil);
    FHandle := LHandle;
    FHandleCreated := True;
    SetWindowLong(FHandle, GWL_WNDPROC, LPARAM(FObjectInstance));
    // ...
  end;
end;