Немодальное дочернее окно всегда сверху, WinAPI Опции

[TarasBer]

uses
  Windows, Messages;

var
  WC: TWndClass;
  H1, H2: hWND;
  Message: TMsg;

function WP(Handle: HWND; Message: UINT; WP: WParam; LP: LParam): longint; stdcall;
begin
  case Message of
    wm_Destroy: if Handle = H1 then begin
      PostQuitMessage(0);
      Result := 0;
      Exit;
    end;
  end;
  Result := DefWindowProc(Handle, Message, WP, LP);
end;

begin  
  with WC do begin
    Style := cs_HRedraw or cs_VRedraw or cs_OwnDC;
    lpfnWndProc := @WP;
    cbClsExtra := 0;
    cbWndExtra := 0;
    hInstance := MainInstance;
    hIcon := 0;
    hCursor := LoadCursor(0, idc_Arrow);
    hbrBackground := Color_BtnFace + 1;
    lpszMenuName := nil;
    lpszClassName := 'Test';
  end;

  RegisterClass(WC);

  H1 := CreateWindow('Test', 'Test1', ws_OverlappedWindow,
      100, 100, 320, 200,
      0, 0, MainInstance, nil);
      
  H2 := CreateWindow('Test', 'Test2', ws_OverlappedWindow,
      110, 110, 320, 200,
      H1, 0, MainInstance, nil);

  ShowWindow(H1, cmdShow);
  UpdateWindow(H1);
  
  ShowWindow(H2, sw_ShowNormal);

  while GetMessage(Message, 0, 0, 0) do begin
    TranslateMessage(Message);
    DispatchMessage(Message);
  end;

end.

Второе окно всегда сверху, даже когда первое активно.
Если у второго окна задавать родителем 0, то в панели задач будут 2 иконки, тоже не катит.
Что делать?
Как делать правильно?

[TarasBer]

Заработал такой вариант оконной функции:

function WP(Handle: HWND; Message: UINT; WP: WParam; LP: LParam): longint; stdcall;
const
  WasH1: boolean = false;
begin
  Result := 0;
  case Message of
    wm_SysCommand: if Handle = H1 then begin
      if WP = sc_Minimize then ShowWindow(H2, sw_Hide)
      else if WP = sc_Restore then ShowWindow(H2, sw_Show);
    end;
    wm_Activate: if LoWord(WP) = wa_ClickActive then WasH1 := Handle = H1;
    wm_ActivateApp: if WP <> 0 then begin
      if WasH1 then begin
        BringWindowToTop(H2); // тут небольшая проблема
        BringWindowToTop(H1);
      end else PostMessage(H2, wm_Activate, wa_ClickActive, H2);
    end;
    wm_Destroy: if Handle = H1 then begin
      PostQuitMessage(0);
      Exit;
    end;
  end;
  Result := DefWindowProc(Handle, Message, WP, LP);
end;

Осталась одна проблема - если оставить активным первое окно, а потом переключиться на другое приложение и обратно, то заметно небольшое передёргивание - ведь сначала второе окно вытягивают наверх, а потом сразу первое. Нельзя ли сразу как-нибудь вывести второе окно именно на 2 место?