delphi ExtCtrls.Frame3D


uses ExtCtrls;

procedure TForm1.FormPaint(Sender: TObject);
var
  R1, R2: TRect;
begin
  R1 := Rect(10, 10, 150, 50);
  Frame3D(Canvas, R1, clBlack, clSilver, 1);

  R2 := Bounds(10, 80, 140, 40);
  Frame3D(Canvas, R2, clRed, clBlue, 1);
end;