Redondear esquinas de cualquier control

[[AzidRain]]

Código Delphi [-]

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.