Bildbearbeitungsprogramm Auswahlwerkzeug

[shmia]

Beim Kreis merkst du dir den Punkt in OnMouseDown.
Dazu die Parameter x und y in einem TPoint speichern.
FUrsprung := Point(x,y); Im Event OnMouseMove bekommt du neue Koordinaten mit denen du den Radius des Kreises berechnen kannst.

Delphi-Quellcode:

FAktPunkt := Point(x,y);
radius := CalcDistance(FUrsprung, FAktPunkt);
...
// Hilfsfunktion 
function CalcDistance(p1,p2:TPoint):integer;
begin
  Result := Round(Sqrt(Sqr(p1.x-p2.x)+Sqr(p1.y-p2.y)));
end;

Zauberstab ist natürlich deutlich anspruchsvoller; ich würde das nach hinten verschieben bis du die einfacheren Dinge gelöst hast.