填充了一个矩形，怎么样让这个矩形(R)有一种突起的感觉？

Question

填充了一个矩形，怎么样让这个矩形(R)有一种突起的感觉？
begin
var
  R: TRect;
begin
 C := TControlCanvas.Create;
  try
    C.Control := Self;
    with C do
    begin           
      R := Rect(ClientRect.Right - 20, ClientRect.Top, ClientRect.Right, ClientRect.Bottom);      Brush.Color := clRed;      Canvas.FillRect(R);
end;

Answer 1

var
  R: TRect;
begin
  try
    with Canvas do
    begin
      R := Rect(ClientRect.Right - 20, ClientRect.Top, ClientRect.Right, ClientRect.Bottom);      Brush.Color := clRed;      FillRect(R);
      Brush.Color := clBlack;
      FrameRect(R);
    end;
  except
  end;
end;