diff --git a/lcl/interfaces/qt/qtobjects.pas b/lcl/interfaces/qt/qtobjects.pas
index 1e9e9ce69a..6ae477a83e 100644
--- a/lcl/interfaces/qt/qtobjects.pas
+++ b/lcl/interfaces/qt/qtobjects.pas
@@ -2314,7 +2314,7 @@ end;
 
 procedure TQtDeviceContext.drawRoundRect(x, y, w, h, rx, ry: Integer);
 begin
-  QPainter_drawRoundRect(Widget, x, y, w, h, rx, ry);
+  QPainter_drawRoundedRect(Widget, x, y, w, h, rx, ry);
 end;
 
 {------------------------------------------------------------------------------
diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc
index 6605a369b7..00b8cd49c5 100644
--- a/lcl/interfaces/qt/qtwinapi.inc
+++ b/lcl/interfaces/qt/qtwinapi.inc
@@ -4329,12 +4329,7 @@ begin
     {$Endif}
     Exit;
   end;
-
-  R := NormalizeRect(Rect(X1, Y1, X2, Y2));
-  if IsRectEmpty(R) then Exit(True);
-
-  TQtDeviceContext(Dc).drawRoundRect(R.Left, R.Top, R.Right - R.Left - 1, R.Bottom - R.Top - 1, RX, RY);
-  Result := True;
+  Result := inherited RoundRect(DC, X1, Y1, X2, Y2, RX, RY);
 end;
 {------------------------------------------------------------------------------
   Function: SaveDC: save DC state information to a stack