[NumLock]

Код:

BOOL RoundRect(
    HDC hdc,	// handle of device context 
    int nLeftRect,	// x-coord. of bounding rectangle's upper-left corner 
    int nTopRect,	// y-coord. of bounding rectangle's upper-left corner 
    int nRightRect,	// x-coord. of bounding rectangle's lower-right corner 
    int nBottomRect,	// y-coord. of bounding rectangle's lower-right corner 
    int nWidth,	// width of ellipse used to draw rounded corners  
    int nHeight 	// height of ellipse used to draw rounded corners  
   );

Код:

procedure TCanvas.RoundRect(X1, Y1, X2, Y2, X3, Y3: Integer);