ペン幅の変更
ペン幅はペンで描画する線の太さをピクセル単位で指定します。
メモ： 線幅が 1 より大きい場合，Windows はペンの Style プロパティの値に関係なく，常に実線を描きます。
ペン幅を変更するには，ペンの Width プロパティに値を代入します。
ペンのツールバーにペン幅を表すためのスクロールバーがあるとします。また，ユーザーにフィードバックを返すために，スクロールバーの横にあるラベルを更新するものとします。スクロールバーの位置を使ってペン幅を決めるには，位置が変わるたびにペン幅を更新します。
スクロールバーの OnChange イベントの扱い方を次に示します。
procedure TForm1.PenWidthChange(Sender: TObject);
begin
Canvas.Pen.Width := PenWidth.Position;{ ペン幅を直接設定する }
PenSize.Caption := IntToStr(PenWidth.Position);{ キャプションに表示するため，文字列に変換 }
end;
void __fastcall TForm1::PenWidthChange(TObject *Sender)
{
Canvas->Pen->Width = PenWidth->Position; // ペン幅を直接設定する
PenSize->Caption = IntToStr(PenWidth->Position); // 文字列への変換
}