Закругление краёв компонента

[SeregaIRK]

Есть процедура :
procedure MakeRounded(Control: TWinControl);
var
R: TRect;
Rgn: HRGN;
begin
with Control do
begin
R := ClientRect;
rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20);
Perform(EM_GETRECT, 0, lParam(@r));
InflateRect(r, - 5, - 5);
Perform(EM_SETRECTNP, 0, lParam(@r));
SetWindowRgn(Handle, rgn, True);
Invalidate;
end;
end;

Она закругляет края компонентов,но по краям они приобретает некоректный вид,можно ли сделать нормально ?
И можно ли это сделать без применение имейджей на событиях OnMouseDown и OnMouseUp ?

[puporev]

Если нужно просто чкруглить края компонентов, то можно положить на форму компонент XPManifest с вкладки Win32.

[SeregaIRK]

Пасиб Puporev !