procedure TForm1.FormCreate(Sender: TObject);
Var hand : THandle;
begin
hand:=CreateEllipticRgn(0,0,Form1.Width,Form1.Height);
SetWindowRgn(Handle,hand,True);
end;