Отрисовка прямоуглольника с закругленными углами

[fezilk25]

Скачал компонент KMAlert, выводящий всплывающие окошки. Они прямоугольные, с острыми углами. Мне же необходимо сделать углы закругленными.

Вот отрисовка прияумогольной формы:

procedure TKMAlert.Paint;
var
  R: TRect;
begin
  inherited;
	with Canvas do
  begin
    Brush.Color:= ForegroundColor;
    FillRect(ClientRect);

    R:= ClientRect;
    OffsetRect(R, R.Left, R.Top);
    DrawEdge(Handle, R, EDGE_RAISED, BF_RECT);
    InflateRect(R, -2, -2);
    DrawEdge(Handle, R, EDGE_SUNKEN, BF_RECT);
  end;
end;

PS. Может, легче как-нибудь положить туда картинку, а сам прямоугольник сделать прозрачным(т.е. без заливки), чтобы углы не торчали? Как это реализовать?

[mihali4]

Универсальный способ рисования контролов с закругленными углами:

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;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.BorderStyle:=bsNone;
MakeRounded(Memo1 as TWinControl);
end;