Canvas-Pen zeichnet abgerundete Linien

[Tubos]

Ich möchte wirklich keine Rechtecke zeichnen, vor allem weil ich dann z.B. auf die komfortable Einstellung der Linienbreite verzichten müsste.
Und wenn das ganze dicker und schief ist, wird sowieso mathematisch

Danke für den Tip mit der API-Funktion!

Hab im winsdk nachgeschaut.
Der Befehl heißt ExtCreatePen und die Syntax ist:

HPEN ExtCreatePen(
DWORD dwPenStyle, // pen style
DWORD dwWidth, // pen width
CONST LOGBRUSH *lplb, // pointer to structure for brush attributes
DWORD dwStyleCount, // length of array containing custom style bits
CONST DWORD *lpStyle // optional array of custom style bits
);

Bei dwPenStyle ist die gesuchte Eigenschaft drinnen:
End cap Description
PS_ENDCAP_ROUND End caps are round.
PS_ENDCAP_SQUARE End caps are square.
PS_ENDCAP_FLAT End caps are flat.

Wie setze ich das in Delphi um?
lplb wird doch nicht TPen entsprechen, oder?
das wäre ja irgendwie zu einfach