Растягивание/сужение Формы

Как осуществить растягивание/сужение формы при BorderStyle = bsNone и прозрачной формой, AlphaBlend = false, AlphaBlend Value = 0,

Код (Text):

TransparentColor := true;
Color := clWhite;
TransparentColorValue := clWhite;