[[gluglu]]

Al crear un Form en tiempo de ejecución lo que hago es :

Código Delphi [-]
Form1 := TForm1.Create(Self);
Form1.PopupMode := pmAuto;
Form1.ShowModal;

El Form1 tiene la propiedad FormStyle := fsStayOnTop.

Y en el Form1 :

Código Delphi [-]
TForm1 = class(TForm)
  ....
private
  { Private declarations }
public
  { Public declarations }
protected
  procedure CreateParams(var Params: TCreateParams); override;
end;
 
procedure TForm1.CreateParams(var Params: TCreateParams);
const
  CS_DROPSHADOW = $00020000;
begin
  inherited;
  Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;

Al menos así me funciona a mi sin ningún tipo de problema.