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

[Koc]

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

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

 

[Dock1100]

Ссылка скрыта от гостей

Ссылка скрыта от гостей

Ссылка скрыта от гостей