Durchgehend zeichnen mit canvas

[Nicodius]

Delphi-Quellcode:

procedure TForm1.StiftDraw(x, y: Integer);
begin
  with Form1 do begin
    if not FC then begin
      Paintbox1.Canvas.Pen.Color := Farbe;
      PaintBox1.Canvas.MoveTo(MOldPo.X, MOldPo.Y);
      PaintBox1.Canvas.LineTo(Xold, Yold);
    end
    else
      FC := False;
    Paintbox1.Canvas.Pen.Color := Farbe;
    PaintBox1.Canvas.MoveTo(XOld, YOld);
    PaintBox1.Canvas.LineTo(X, Y);
    XOld:=X; YOld:=Y;
  end;
end;

bitte schön