VCL-Fenster oberhalb eines ShowModal()-Fensters

[Der schöne Günther]

Ist es möglich? Ich möchte ein schwebendes kleines Overlay haben das immer über den Hauptformular liegt. Das ist einfach, einfach FormStyle := TFormStyle.fsStayOnTop . Ein mittels ShowModal() aufgerufenes Popup verdeckt dieses allerdings wieder.

Gibt es eine Möglichkeit das zu verhindern?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   alwaysOnTop:   TForm;
   shownModal:      TForm;
begin
   alwaysOnTop := TForm.Create(self);
   alwaysOnTop.FormStyle := TFormStyle.fsStayOnTop;
   alwaysOnTop.Caption := 'This is always on top';
   alwaysOnTop.Show();

   shownModal := TForm.Create(self);
   shownModal.Caption := 'ShowModal()';
   shownModal.ShowModal(); // Legt sich über "alwaysOnTop"
end;