Delphi 7 AlphaBlend not working for dynamic form

Question

I have created dynamic Form as the next :

procedure TForm1.Button1Click(Sender: TObject);
var
 Frm:TForm2;
begin

frm:=TForm2.Create(nil);
Frm.Left:=5;
Frm.Top:=5