procedure TForm1.FormPaint(Sender: TObject);

var

  PenHandle: HPEN;

  BrushStyle: tagLOGBRUSH;

  NewPen: TPen;

begin

  with Canvas do

  begin

    BrushStyle.lbStyle:=BS_SOLID;

    BrushStyle.lbColor:=ColorToRGB(Pen.Color);

    BrushStyle.lbHatch:=0;

    PenHandle:=ExtCreatePen(PS_GEOMETRIC or PS_DOT,Pen.Width,BrushStyle,0,nil);

    NewPen:=TPen.Create;

    try

      NewPen.Handle:=PenHandle;

      Canvas.Pen:=NewPen;

      MoveTo(0,100);

      LineTo(300,100);

    finally

      NewPen.Free;

    end;

  end;

end;