1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TmainForm.btnZeichnenClick(Sender: TObject);
var
  x1,x2,y1,y2 : integer;
begin
  // Koordinaten initialisieren
  x1 := 0;
  y1 := 0;
  x2 := 220;
  y2 := 200;
  // Stiftdicke
  PaintBox1.Canvas.Pen.Width := 3;
  // Startpunkt setzen
  PaintBox1.Canvas.MoveTo(x1,y1);
  // Linie zum Endpunkt zeichnen
  PaintBox1.Canvas.LineTo(x2,y2);
end;