Redondear esquinas de cualquier control

[AzidRain]

procedure DrawRounded(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, - 4, - 4) ;
Perform(EM_SETRECTNP, 0, lParam(@r)) ;
SetWindowRgn(Handle, rgn, True) ;
Invalidate;
end;
end;

{Ejemplo de uso}
procedure TForm1.FormCreate(Sender: TObject) ;
begin
// rounding Panel1
DrawRounded(Panel1) ;

// rounding Memo1
Memo1.BorderStyle := bsNone;
DrawRounded(Memo1) ;

// rounding Edit1
Edit1.BorderStyle := bsNone;
DrawRounded(Edit1) ;

end;

[Neomanar]

Me tira los siguientes errores:
[Pascal Error] E2003 Undeclared identifier: 'EM_GETRECT'
[Pascal Error] E2003 Undeclared identifier: 'EM_SETRECTNP'
Qué me está faltando?

[Neomanar]

Me tira los siguientes errores:
[Pascal Error] E2003 Undeclared identifier: 'EM_GETRECT'
[Pascal Error] E2003 Undeclared identifier: 'EM_SETRECTNP'
Qué me está faltando?

[Black_Ocean]

Para Neomanar

Fácil, te está faltando declarar en tu USES la librería Messages

Cordiales saludos.

[Lisandro]

Muy bueno, me anda con BDS 2006. Gracias

[mario2000]

Hola lo hise con un boton y en verdad que es horrendo, el boton se ve peor de lo normal, quisiera saber si se puede hacer que los botones tengan esquinas suaves y redondas ademas que tengan un efecto gradiente gracias.