Окно в форме элипса
	
procedure TForm1.FormCreate(Sender: TObject);
Var rgn:HRGN;
begin
rgn := CreateEllipticRgn( 10,10,100,100 );
SetWindowRgn ( Form1.Handle,rgn ,True);
end;