Source position: kgraphics.pas line 803
procedure RoundRectangle(
ACanvas: TCanvas;
const ARect: TRect;
AXRadius: Integer;
AYRadius: Integer
);