[DELPHI] Problema con ombra sotto ad un form

[Lyll0]

ciao gente,
mi sto arrovellando il cervelletto per trovare una soluzione ma non c'è stato verso...

ho usato il sguente codice per far comparire l'ombra (drop shadow) dietro ad un form:

type 
  TForm1 = class(TForm) 
  protected 
    procedure CreateParams(var Params: TCreateParams); override; 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.CreateParams(var Params: TCreateParams); 
const 
  CS_DROPSHADOW = $00020000; 
begin 
  inherited; 
 { Check Versione WIndows }
 if (Win32Platform = VER_PLATFORM_WIN32_NT) and
    ((Win32MajorVersion > 5) or
     ((Win32MajorVersion = 5) and (Win32MinorVersion >= 1))) then
   Params.WindowClass.Style := CS_DROPSHADOW; 
end;

e nel form principale, quello che deelphi vede come "Main Form" l'ombra compare, solo che io vorrei che la stessa cosa avenisse anche per un form che viene mostrato al click di un pulsante...

ho provato ad usare la stessa procedura ma l'ombra NON si vede...

che devo fare?

ciao e grazie