DrawBox Hilfe

[Linguini]

Vielen Dank für eure Hilfe.

Ich hab es jetzt so gelöst:

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);

begin

Image1.canvas.Pixels[xPos,yPos]:= clBlack
end;


procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  xPos := X;
  yPos := Y;
end;

end.

Ich kann nun auch einzelne Punkte setzen, super wäre aber wenn man auch durch gedrückt halten gleich ganze Linien zeichnen könnte.
Ist das auch möglich?