在Delphi中进行图形编程通常使用TCanvas对象来实现。以下是一个简单的示例，用Delphi绘制一个矩形：

procedure TForm1.Button1Click(Sender: TObject);beginCanvas.Pen.Color := clBlack; // 设置画笔颜色Canvas.Brush.Color := clRed; // 设置填充颜色Canvas.Rectangle(50, 50, 100, 100); // 绘制矩形，参数依次为左上角x坐标，左上角y坐标，右下角x坐标，右下角y坐标end;

通过Canvas对象可以绘制各种形状，如线段、圆形等。开发者可以根据自己的需求来绘制图形。同时，Delphi也提供了丰富的绘图方法和属性，可以通过查阅文档来了解更多用法。