ペン色の変更
ペンの色を設定する方法は，ほかのオブジェクトで Color プロパティを実行時に設定する方法と同じです。ペンの色はペンで描画する線の色を決定します。図形の境界として描画される線や多角線の色も，ペンの色で決定されます。ペンの色を変更するには，ペンの Color プロパティに値を代入します。
ユーザーに色を選ばせるには，ペンのツールバーにカラーグリッドを表示します。カラーグリッドでは，前景色と背景色の両方を設定できます。非グリッドのペンスタイルでは，線分の間に表示される背景色について考慮する必要があります。背景色は，ブラシの色プロパティによって決定されます。
ユーザーがグリッドをクリックして新しい色を選択したら，次のコードで OnClick イベントを処理して，ペンの色を変更します。
procedure TForm1.PenColorClick(Sender: TObject);
begin
Canvas.Pen.Color := PenColor.ForegroundColor;
end;
void __fastcall TForm1::PenColorClick(TObject *Sender)
{
Canvas->Pen->Color = PenColor->ForegroundColor;
}