@robert!
du bist ja "gold"!!!
Nur leider kann ich mit folgenden begriffen nicht so richtig umgehen:
var
N: integer;
Points: array of TPoint; (was heißt dieses array of tpoint?)
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button = mbleft then
begin
Image1.Canvas.Brush.Color := clBlack;
Image1.Canvas.FrameRect(Rect(x-7, y-7, x+7, y+7)); (Frame Rect?)
n := n+1;
SetLength(Points, n);
Points[n-1].X := X;
Points[n-1].Y := Y;
end;
end;
Tausend Dank!