在Delphi中進行圖形編程通常使用TCanvas對象來實現。以下是一個簡單的示例，用Delphi繪制一個矩形：
procedure TForm1.Button1Click(Sender: TObject);
begin
Canvas.Pen.Color := clBlack; // 設置畫筆顏色
Canvas.Brush.Color := clRed; // 設置填充顏色
Canvas.Rectangle(50, 50, 100, 100); // 繪制矩形，參數依次為左上角x坐標，左上角y坐標，右下角x坐標，右下角y坐標
end;
通過Canvas對象可以繪制各種形狀，如線段、圓形等。開發者可以根據自己的需求來繪制圖形。同時，Delphi也提供了豐富的繪圖方法和屬性，可以通過查閱文檔來了解更多用法。
