BorderStyle := bsNone;
BoundsRect := Rect(0, 0, Screen.Width, Screen.Height);