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

var unten : boolean;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  unten := True;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  unten := False;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if unten then canvas.lineto(x,y) else canvas.moveto(x,y);

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TForm13.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Checkbox1.Checked:=true;
  Image1.Canvas.MoveTo(X,Y);      // beim Mausdown bewegst du den Stift an die aktuelle Position
end;


procedure TForm13.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var xpos, ypos:Integer;

    begin
    xpos:=X; ypos:=Y;

    //grün
    if (Checkbox1.checked=true) and
    (Checkbox2.Checked=False) and
    (Checkbox4.Checked=False) and    //nur Maustaste, keine Ziffer
    (Checkbox5.Checked=False)  and
    (Radiobutton1.checked=false) and
    (Radiobutton2.Checked=false) and
    (Radiobutton3.Checked=false) and
    (Radiobutton4.Checked=false) then
    begin
      Image1.Canvas.Pen.color:=RGB(0,255,0);  //Randfarbe schwarz
      Image1.Canvas.Brush.Color:=RGB(0,255,0);  //Füllfarbe schwarz
//      Image1.Canvas.ellipse(xpos,ypos,xpos+10,ypos+10);  // Ellipse

//--->> Statt jetzt eine Ellipse zu malen, malst du einfach mit dem Stift
      Image1.Canvas.Pen.Width := 10;
      Image1.Canvas.LineTo(xpos, ypos);
//--->> Und verbindest, die aktuelle Position wo der Stift liegt, mit der neuen Position
    end;