Так то лучше.
Кинул на форму таймер и Edit. По таймеру
Код:
Edit1.Text := IntToStr(Width)
аналогично с тем эдитом, который уже есть, по WMNCPaint. Разница в 3-4 пикселя при ресайзе, оттуда и пропадание границы. Что делать - фиг знает. Возможно, юзать другое событие.
А вообще, нафиг такие костыли? Юзал бы AlphaSkins - и горя бы не знал.