@mkinzler
Dann würde ich mich über eine kleine Einweisung in die Drawbox freuen

Ich kann dort genau so Punkte setzen usw. nur wie ich eine Linie bei gedrückter Maustaste malen kann, ist mir auch hier nicht klar.
Edit:
Delphi-Quellcode:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then Image1.Canvas.Pixels[X,Y]:=clBlack;
So klappt es wunder, und das auch noch in einer Zeile
Vielen Dank!