Rechteck gestrichelt zeichnen

[devnull]

Hi,
wie zeichnet man ein gestricheltes Rechteck?

Delphi-Quellcode:

with DXDraw1.Surface.Canvas do
  begin
    Brush.Style := bsClear;
    Pen.Style := psDash;   //Geht nicht, weil Pen.Width = 2
    Pen.Width := 2;
    Pen.Color := clBlack;
    DXDraw1.Surface.Canvas.Rectangle(x,y, x+20,y+20);
  end;

Wie gesagt, das Rechteck wird durchgängig gezeichnet, weil die Pen.Width auf 2 steht

mfg
devnull